t_id
1173
t_version
1.1
t_adddate
2003/10/29
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ %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.