t_id
1173
t_version
1.1
t_adddate
2003/10/29
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950711884 | 1015786 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } Type IMyInterface = Interface Function MyFunc : Integer; end; TMyClass = Class(TInterfacedObject,IMyInterface) Function MyOtherFunction : Integer; // The following fails in FPC. Function IMyInterface.MyFunc = MyOtherFunction; end; Function TMyClass.MyOtherFunction : Integer; begin Result:=23; end; Var A : TMyClass; M : IMyInterface; I : Integer; begin A:=TMyClass.Create; M:=A; I:=M.MyFunc; If (I<>23) then begin Writeln('Error calling interface'); Halt(1); end; end.