Delphi Syntax - Eckige Klammern bei Klasseninstanzen

[Neutral General]

Hi,

Delphi-Quellcode:

// Imaginäres Beispiel
TBeispiel = class
private
  FFields: TFieldList;
  procedure SetField(Index: String, const Value: TField);
  function GetField(Index: String): TField;
public
  property Fields[Index: String]: TField read GetField write SetField; default;
end;

implementation

procedure TBeispiel.SetField(Index: String, const Value: TField);
begin
  FFields.GetFieldByName(Index) := Value;
end;

function TBeispiel.GetField(Index: String): TField;
begin
  Result := FFields.GetFieldByName(Index);
end;

Delphi-Quellcode:

var test: TBeispiel;
begin
  test.Fields['Hallo'] := blubb;
  // Abkürzende schreibweise für die Zeile 
  // obendrüber:
  test['Hallo'] := blubb;   // Kann man so schreiben wegen dem "default" keyword von der Fields Property 
end;