objekte als Stringliste bzw. Strings mit Daten erstellen

[SirThornberry]

Delphi-Quellcode:

type
  TBuch = record
    bezeichnung: String;
    alter: Byte;
  end;
[...]
  TMyClass = class(TObject)
  private
    function fgetBuchbez(AValue: String): TBuch;
    { Private declarations }
  public
    property Buch[Buchbez: String]: TBuch read fgetBuchbez;
  end;

[...]

function TMyClass.fgetBuchbez(AValue: String): TBuch;
begin
  if AValue = 'Buch1' then
  begin
    result.bezeichnung := 'Delphi Kochbuch';
    result.alter := 5;
  end else begin
    result.bezeichnung := 'undefined';
    result.alter := 0;
  end;
end;