Property -> Getter und Setter mit Parametern

[sx2008]

Delphi-Quellcode:

TCustomSpeicherobjekt = class(TObject)
private
   function GetEinStringWert(aIndex: string): string;
   procedure SetEinStringWert(aIndex: string; const Value: string);
public
   property EinStringWert[aIndex:string]:string read GetEinStringWert write SetEinStringWert;default;
end;

Der Property EinStringWert ist ein Array-Property.
Pro Klasse kann man genau ein Array-Property zum Default-Indexer erklären (Schlüsselwort default).

Delphi-Quellcode:

var
   x : TCustomSpeicherobjekt;
begin
   x := TCustomSpeicherobjekt.Create;
   x['Host'] := 'www.delphipraxis.net';

Das spart auch Tipparbeit.