Zitat von
SirThornberry:
so Legt man ein (bzw. 3) Item(s) mit dazugehöriger PersonalNummer an
Delphi-Quellcode:
var LPersonalnummer: String;
begin
LPersonalnummer := 'Personalnummer 3094d';
Combobox1.Items.AddObject('Hansmüller', TObject(LPersonalnummer));
LPersonalnummer := 'Personalnummer 394d0';
Combobox1.Items.AddObject('Fritz walter', TObject(LPersonalnummer));
LPersonalnummer := 'Personalnummer 08173';
Combobox1.Items.AddObject('Max mustermann', TObject(LPersonalnummer));
Uns so lässt du dir die personalnummer von dem ausgewählten Item anzeigen
showmessage(String(Combobox1.Items.Objects[ComboBox1.ItemIndex])); Der Tip mit dem "AddObject" hat mir wirklich sehr gut gefallen und hat mir bei meinem Problem geholfen. Ich benötige jetzt allerdings noch eine weitere Variation und versuche mal, den Sachverhalt mit den hier benutzten Variablen zu beschreiben.
Ich habe in meinem D5-Programm eine TComboBox-Komponente, die mehrere Items (Personennamen) enthält. Damit ich in der dahinterliegenden Datenbank (Firebird 2.0) nur eine ID speichere (z.B. "LPersonalnummer), habe ich diese ID in der ComboBox dem jeweiligen Item, wie von Dir beschrieben, mit AddObjects hinzugefügt.
Soweit so gut, nun zum Problem:
Ich möchte, wenn ich in einem TDBGrid durch die Datenmenge scrolle, die jeweilige Personalnummer aus der Datenbank holen und über diese ID das Item in der ComboBox ermitteln, dessen Personalnummer der ID des Datensatzes entspricht. Denn Ziel ist es, das zugehörige Item in der ComboBox auszuwählen und den Personennamen anzuzeigen.
Ich hoffe, jemand kann mir einen guten und performanten Tip geben.
Grüsse,
Carsten