t_id
66
t_adddate
2003/10/03
t_result
219
t_knownrunerror
0
t_opts
-CR
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
484261166 | 941524 | True | False | Successfully run |
Record count: 1
{%RESULT=219 } { %OPT= -CR } program test_object; type pobj1 = ^tobj1; tobj1 = object constructor init; procedure mymethod; virtual; end; pobj2 = ^tobj2; tobj2 = object constructor init; procedure mymethod; virtual; end; constructor tobj2.init; begin end; procedure tobj2.mymethod; begin end; constructor tobj1.init; begin end; procedure tobj1.mymethod; begin end; var _obj1 : pobj1; _obj2 : pobj2; Begin _obj1:=new(pobj1,init); _obj2:=new(pobj2,init); pobj1(_obj2)^.mymethod; end.