mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 23:08:08 +02:00
47 lines
778 B
ObjectPascal
47 lines
778 B
ObjectPascal
{ %SKIPTARGET=go32v2 }
|
|
{ %OPT=-gh }
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif fpc}
|
|
uses
|
|
classes;
|
|
|
|
type
|
|
to2 = class(TObject,IInterface)
|
|
fi : TInterfacedObject;
|
|
property i : TInterfacedObject read fi implements IInterface;
|
|
end;
|
|
|
|
to1 = class(TObject,IInterface)
|
|
fi : to2;
|
|
property i : to2 read fi implements IInterface;
|
|
end;
|
|
|
|
var
|
|
o1 : to1;
|
|
o2 : to2;
|
|
i1,i2 : IInterface;
|
|
begin
|
|
o2:=to2.create;
|
|
o2.fi:=TInterfacedObject.Create;
|
|
|
|
o1:=to1.create;
|
|
o1.fi:=o2;
|
|
writeln('o1, o2 and o2.fi created');
|
|
i1:=o1;
|
|
i1.QueryInterface(IInterface,i2);
|
|
writeln('i2 queried the first time');
|
|
if i2=nil then
|
|
halt(1);
|
|
writeln('releasing and setting o1.fi to nil');
|
|
o1.fi.free;
|
|
o1.fi:=nil;
|
|
|
|
o1.free;
|
|
i1 := nil;
|
|
i2 := nil;
|
|
|
|
writeln('ok');
|
|
end.
|
|
|