t_id
451
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525836033 | 948252 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0257.pp } { problem with procvars in tp mode OK 0.99.11 (PM) } {$mode tp} type proc = procedure(a : longint); procedure test(b : longint); begin Writeln('Test ',b); end; var t : proc; begin t:=test; t:=proc(test); test(3); t(5); end.