fpc/tests/webtbs/tw2041.pp
2002-09-07 15:40:30 +00:00

13 lines
238 B
ObjectPascal

{ %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.