t_id
1402
t_adddate
2004/11/28
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022775286 | 1027386 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3101 } { Submitted by "Martin Schreiber" on 2004-05-15 } { e-mail: } program test; { $mode delphi}{$H+} uses Classes; type ttestobj = class public constructor create; destructor destroy; override; procedure afterconstruction; override; procedure beforedestruction; override; end; var testobj: ttestobj; procedure ttestobj.afterconstruction; begin writeln('afterconstruction'); end; procedure ttestobj.beforedestruction; begin writeln('beforedestruction'); end; constructor ttestobj.create; begin writeln('create'); end; destructor ttestobj.destroy; begin writeln('destroy'); inherited; end; begin testobj:= ttestobj(ttestobj.newinstance); writeln(longint(testobj)); writeln(longint(testobj.create)); testobj.free; //expected: create,afterconstruction,beforedestruction,destroy //actual: create,beforedestruction,destroy //kylix shows the expected behavior end.