mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 02:47:55 +02:00
20 lines
237 B
ObjectPascal
20 lines
237 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif fpc}
|
|
unit uimplements8;
|
|
|
|
interface
|
|
|
|
uses
|
|
classes;
|
|
|
|
type
|
|
to1 = class(TObject,IInterface)
|
|
fi : IInterface;
|
|
property i : IInterface read fi implements IInterface;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|