t_id
637
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524776090 | 948074 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode delphi}{$endif} type tcl = class function f1 : tvarrec; virtual; end; var f : function : tvarrec of object; function tcl.f1 : tvarrec; begin fillchar(result,sizeof(result),0); end; procedure p1(v : tvarrec); begin end; var c : tcl; begin c:=tcl.create; f:=c.f1; p1(f); end.