t_id
1257
t_adddate
2004/02/21
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950424085 | 1015742 | True | False | Successfully run |
Record count: 1
{$mode delphi} const err : boolean = true; type tf = function:longint; procedure p1(l:longint);overload; begin writeln('longint'); end; procedure p1(f:tf);overload; begin writeln('procvar'); err:=false; end; function vf:longint; begin vf:=10; end; var v : tf; begin v:=vf; p1(v); if err then halt(1); end.