t_id
675
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525924620 | 948270 | True | False | Successfully run |
Record count: 1
var s : string; procedure UseString(const as : string); begin s:=as; end; procedure MyExit; begin Writeln('Last call to UseString was with as = ',s); end; begin exitproc:=@MyExit; UseString('Dummy test'); end.