t_id
802
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.