t_id
53
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022540632 | 1027349 | True | False | Successfully run |
Record count: 1
{ %VERSION=1.1 } {$mode objfpc} type IInterface = interface(IUnknown) procedure mydo; end; TMyClass = class(TInterfacedObject, IInterface) procedure mydo;virtual; end; TMyClass2 = class(TMyClass) i : integer; end; var l : longint; procedure tmyclass.mydo; begin l:=1; end; var c: TMyClass; i: IInterface; c2 : TMyClass; begin c := TMyClass.Create; i := c; l:=0; i.mydo; if l<>1 then halt(1); c2 := TMyClass2.Create; i := c2; l:=0; i.mydo; if l<>1 then halt(1); end.