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.