t_id
1296
t_adddate
2004/05/24
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.