dies hier ist mein erster Post. Ich bin momentan dabei ein Schallplattenverwaltungsprogramm zu erstellen und möchte in einer Combobox die möglichen Zustandsbeschreibungen der Schallplatten (Mint, Very Good, Good, Worn, Fair) speichern... klappt auch. Ich füge aber mittels der Prozedur...
Code: Alles auswählen
procedure TfrmMain.AddSingleStatement(ACaption, AText: String; ACombobox: TComboBox);
var
LObject: TObject;
begin
LObject := TObject(AText);
ACombobox.Items.AddObject(ACaption, LObject);
end;
Code: Alles auswählen
AddSingleStatement('Very Good', 'VG', cbQualityStates)
Code: Alles auswählen
String(cbQualityStates.Items.Objects[cbQualityStates.ItemIndex])
Sorry, wenn das unklar ausgedrückt ist

Vielen Dank
