t_id
669
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524990381 | 948112 | True | False | Successfully run |
Record count: 1
{$MODE objfpc} uses SysUtils, Classes; type TFirstClass = class constructor Create; destructor Destroy; override; end; TSecondClass = class(TFirstClass) constructor Create; destructor Destroy; override; end; constructor TFirstClass.Create; begin raise Exception.Create(''); end; destructor TFirstClass.Destroy; begin WriteLn('TFirstClass.Destroy'); inherited Destroy; end; constructor TSecondClass.Create; begin inherited Create; end; destructor TSecondClass.Destroy; begin WriteLn('TSecondClass.Destroy'); end; var o: TSecondClass; begin try try o := TSecondClass.Create; finally o.Free; end; except on e: Exception do WriteLn('Exception: ', e.Message); end; end.