t_id
687
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949267110 | 1015553 | True | False | Successfully run |
Record count: 1
type TElement = object constructor Init; {something} destructor Free; virtual; destructor Done; virtual; end; constructor TElement.Init; begin Writeln('Init called'); end; destructor TElement.free; begin Writeln('Free used'); end; destructor TElement.Done; begin Writeln('Done used'); end; var E : TElement; PE : ^TElement; begin E.init; E.Free; new(PE,init); dispose(PE,Done); end.