fpc/tests/test/tinterface2.pp
2000-12-03 21:50:07 +00:00

49 lines
613 B
ObjectPascal

{ %VERSION=1.1 }
{$mode objfpc}
type
ITest = interface(IUnknown)
procedure DoSomething;
end;
TMyClass = class(TInterfacedObject, ITest)
procedure DoSomething;
end;
var
i : longint;
procedure TMyClass.DoSomething;
begin
inc(i);
end;
procedure DoTest(const ATest: ITest);
begin
ATest.DoSomething;
end;
procedure DoTest2(ATest: ITest);
begin
ATest.DoSomething;
end;
var
c: TMyClass;
begin
i:=0;
c := TMyClass.Create;
DoTest(c);
DoTest2(c);
c.Free;
if i<>2 then
begin
writeln('Problem with passing interfaces as parameters');
halt(1);
end;
end.