t_id
695
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459438471 | 937501 | True | False | Successfully run |
Record count: 1
{$MODE Delphi} program bug; type TMyObject = class public constructor Create; virtual; constructor Init; end; var M: TMyObject; constructor TMyObject.Create; begin Writeln('Now executing TmyObject.Create'); end; constructor TMyObject.Init; begin Create; Writeln('Now finishing the INIT constructor.'); end; begin M := TMyObject.Init; end.