t_id
577
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
473324453 | 939748 | False | False | Failed to run |
Record count: 1
Runtime error 216 at $00460000 $00460000 Proc test 1 test 1234.567800 Procvar test 2 test 1234.567800
{ %version=1.1 } { %TARGET=linux } {$linklib c} type tprintfproc=procedure(t:pchar);varargs;cdecl; procedure printf(t:pchar);varargs;cdecl;external; var t : tprintfproc; begin printf('Proc test %d %s %f'#10,1,'test',1234.5678); t:=@printf; t('Procvar test %d %s %f'#10,2,'test',1234.5678); end.