t_id
318
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
478178969 | 940543 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0074.pp } { shows MAJOR bugs when trying to compile valid code OK 0.99.1 (PM/CEC) } type tmyobject = object constructor init; procedure callit; virtual; destructor done; virtual; end; constructor tmyobject.init; Begin end; destructor tmyobject.done; Begin end; procedure tmyobject.callit; Begin WriteLn('Hello...'); end; var obj: tmyobject; Begin obj.init; obj.callit; { obj.done;} end.