ComboBox.Items.AddObject?

[Delphi-Coder]

Hallo,
ich brauch mal wieder eure Hilfe! Ich möchte eine ComboBox mit AddObject füllen!
Das Programm holt sich aus einer DB Namen,Vornamen und PersonenID von bestimmten Personen! Nach dem Anwählen soll er die PersonenID in eine andere DB schreiben. Die PersonenID soll aber nicht in der ComboBox stehen.
Wie kann ich die Namen,Vorname (als String) und die PersonenID (als Objekt) mit AddObject in die ComboBox einfügen? Und wie kann ich das Objekt des gewählten Eintrages wieder auslesen?

Ok, vielen Dank!

Bis denne!
Delphi-Coder

[MrSpock]

Hallo Delphi-Coder,

falls die ID ein Integer Wert ist, kann man sich einen Trick zu nutze machen, der darauf basiert, dass ein TObject nicht anderes als eine Adresse ist.

Delphi-Quellcode:

...
    cb1.Items.AddObject(Table1Vorname.AsString
                      +' '
                      +Table1Nachname.AsString,
                      TObject(ID));
   { ID des ersten Eintrages anzeigen }
   ShowMessage(IntToStr(Integer(cb1.Items.Objects[0])));

Du castest die ID einfach als TObject. Und beim Auslesen kehrst du die Umwandlung um. Wenn du lieber eine saubere Lösung hättest , sag bescheid, die kann ich auch liefern.

[Delphi-Coder]

Danke für die schnelle Hilfe! Diese Lösung reicht mir schon! Ich werd's gleich mal probieren...

Delphi-Coder

EDIT: Hat alles funktioniert... Danke

[Papaschlumpf73]

Warum geht das eigentlich mit Integer und nicht mit Int64? Hier mal ein Beispiel - als Ergebnis kommt immer ein 32bit-Integer (max. 10 Stellen) raus...

Delphi-Quellcode:

var S,R: Int64;
begin
S:=123456789012345;
ListBox1.Items.Clear;
ListBox1.Items.AddObject('Testeintrag', TObject(S));
R:=Int64(ListBox1.Items.Objects[0]);
showmessage(R.ToString);
end;

[Sherlock]

Weil man davon ausgeht, nicht mehr als maxInt Einträge zu benötigen, und somit nur halb so viel Speicherplatz benötigt als mit Int64 vielen Einträgen...

Sherlock

[Papaschlumpf73]

Schade, ich habe nur ca. 100 Einträge. Die Referenz-ID aus einem anderen System sind jedoch Int64. Zu blöd…

[Aviator]

Du könntest dir natürlich auch eine Klasse bauen die den Wert enthält. Eventuell kannst du da ja noch ein paar zusätzliche Werte mit reinpacken. Ansonsten wäre eine klasse wohl etwas overkill.

[Uwe Raabe]

Zitat von Papaschlumpf73:

Warum geht das eigentlich mit Integer und nicht mit Int64?

Geht schon - wenn du das Projekt auf Zielplattform 64-Bit-Windows compilierst.

[himitsu]

Oder du machst das, wie es in der VCL eigentlich vorgesehn ist?

Bau dir ein Datenobjekt, pack da deine ID rein und häng dieses Objekt an das Item.

[Papaschlumpf73]

Danke für die Tipps...