t_id
1459
t_adddate
2005/01/25
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949652923 | 1015618 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode objfpc}{$H+}{$endif} uses Classes, SysUtils; type { TMyObject } TMyObject = class(TObject) public constructor Create(TheOwner: TObject); end; { TMyObject } constructor TMyObject.Create(TheOwner: TObject); begin // create AV if TheOwner.ClassName='' then; end; var i : integer; begin i:=0; writeln('Creating the first time'); try TMyObject.Create(nil); except on E: Exception do begin writeln('E='+E.Message); inc(i); end; end; writeln('Creating the second time'); try TMyObject.Create(nil); except on E: Exception do begin writeln('E='+E.Message); inc(i); end; end; writeln('Ending ..'); if i<>2 then halt(1); end.