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.