t_id
332
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525681489 | 948226 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0096.pp } { problem with objects as parameters OK 0.99.6 (PM) } type TParent = object end; PParent = ^TParent; TChild = object(TParent) end; procedure aProc(const x : TParent ); begin end; procedure anotherProc(var x : TParent ); begin end; var y : TChild; begin aProc(y); anotherProc(y); end.