t_id
802
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022848800 | 1027398 | True | False | Successfully run |
Record count: 1
{$mode objfpc} procedure Test(ParArr :array of const); begin writeln(ParArr[0].vtype,' ',vtObject,' ',vtclass); if ParArr[0].vtype<>vtObject then halt(1); end; begin Test([TObject.Create]); end.