blob: 962e347580c532d30c465aa14ff1266d19a365ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ %version=1.1}
{$mode objfpc}
type
ITest = interface
procedure Put(Key: Integer; Item: IUnknown);
function Get(Key: Integer): IUnknown;
property Item[Key: Integer]: IUnknown read Get write Put; default;
end;
begin
end.
|
