Hallo Richard,
für die Default-Eigenschaft wird es von Delphi inzwischen direkt unterstützt:
Delphi-Quellcode:
type
TMyList = Class
Private
Root: TMyListenEintrag;
function GetEintrag (const Index: integer): TMyListenEintrag; overload;
function GetEintrag (const Name: string): TMyListenEintrag; overload;
public
property Items [const Index: integer]: TMyListenEintrag read GetEintrag; default;
property Items [const Name: string]: TMyListenEintrag read GetEintrag; default;
end;
Wenn es sich nicht um die Default-Eigenschaft handelt, mußt du einen
kleinen Umweg in Kauf nehmen.
Gruß Hawkeye