mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-24 22:20:48 +02:00
49 lines
613 B
ObjectPascal
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.
|