Objecte in Combox ein und auslesen.

[machstuhl]

Hallo zusammen,

bei folgendem Fehler komme ich einfach nicht weiter.

Ich lese Daten aus einer Datenbank in eine StringList ein.
Liste.AddObject(String(Field('NAME')), TObject(Integer(Field('ID')))); Diese Daten sollen dann in eine Combobox übergeben werden. Der Normale Listenwert wird korrekt übergeben, das Objekt spinnt jedoch rum und fügt eine Random-Integer-Zahl ein.

Delphi-Quellcode:

for I := 0 to Liste.Count -1 do 
  begin
    cb_Anwender.Items.AddObject(Liste[I], TObject(Liste[I]));
    //cb_Anwender.Items.AddObject(Liste[I], TObject(Integer(Liste[I])));  // verschafft auch keine Besserung
  end;

Wo mache ich den Fehler?

[DeddyH]

cb_Anwender.Items.AddObject(Liste[I], Liste.Objects[I]); Ein Typecast hilft Dir ja nicht weiter, Du brauchst ja die originale Referenz.

[terence14]

Kann es sein, daß die Zahl die Addresse im Speicher ist,
aber nicht der Inhalt des Zeigers, den Du verwendest?

(p statt p^)

MfG,
terence

[sx2008]

Noch einfacher wäre der Aufruf cb_Anwender.Items.AddStrings(Liste); denn damit werden alle Einträge (inkl. Inhalt von Objects[]) an die Combobox-Items angehängt.

[DeddyH]

Das ursprüngliche Einfügen würde ich eher so formulieren:
Liste.AddObject(Field('NAME').AsString, TObject(Field('ID').AsInteger)); Und wenn man nicht anfügen, sondern nur zuweisen will, sollte es ein
cb_Anwender.Items.Assign(Liste); auch tun.
Achja, der Vollständigkeit halber noch das Auslesen der ID:
ID := integer(Liste.Objects[i]);