t_id
624
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022793081 | 1027392 | True | False | Successfully run |
Record count: 1
{ This passes under Delphi and Borland pascal } { for objects, classes don't pass, cf. /tbf/tb0125 } type tobjsymbol = object end; tobjderivedsymbol = object(tobjsymbol) end; procedure testobject(var t: tobjsymbol); begin end; var myobject : tobjderivedsymbol; begin testobject(myobject); end.