t_id
1296
t_adddate
2004/05/24
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
488602095 | 942233 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode objfpc}{$H+}{$endif} type TMyClass = class public constructor Create; procedure Assign(v:pointer);virtual; end; var i : longint; constructor TMyClass.Create; begin writeln('TMyClass.Create'); inc(i); end; procedure TMyClass.Assign(v:pointer); begin end; function CreateMyClass: TMyClass; begin Result:=TMyClass.Create; end; var Item: TMyClass; begin CreateMyClass.Assign(nil); if i<>1 then begin writeln('Error!'); halt(1); end; end.