t_id
669
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949660851 | 1015615 | False | False | Failed to run |
Record count: 1
An unhandled exception occurred at $00000000: Exception: $00000000 ##WASI-EXITCODE: 217 -> 125##>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
{$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.