objekte als Stringliste bzw. Strings mit Daten erstellen

[Taladan]

Hab eine eigene Unit dafür Angelegt.

Delphi-Quellcode:

unit UnitInclude;

interface

type
    TBuch = record
          BuchName : String;
          BuchNr   : Integer;
end;

type
    TBuecher = class(TObject)
             private
                    function fgetBuchbez(AValue: String): TBuch;
                    { Private declarations }
             public
                   property Buch[Buchbez: String]: TBuch read fgetBuchbez;
    end;

implementation

function TBuecher.fgetBuchbez(AValue: String): TBuch;
begin
  if AValue = '1' then begin
    result.BuchName := 'Helden';
    result.BuchNr := 1;
  end
  else
  begin
    result.BuchName := 'undefined';
    result.BuchNr := 0;
  end;
end;

end.

Dann in der Formularunit

Delphi-Quellcode:

[..]
var     buch : Tbuch;
begin
  ComboBoxBuch.Items.Clear;
  ComboBoxBuch.Items.AddObject(Buch.BuchName[1], Buch[1]); 
end;
[..]

Aber ich bekomme immer Fehlermeldung das ein Array-Typ benötigt wird.