ComboBox AddObject schreiben und lesen

[DieDolly]

Aus dem Forum habe ich das hier

Delphi-Quellcode:

//Schreiben:
ComboBox.AddObject('Deutschland', TOBject('DE'));

//Lesen:
Laendercode.AsString := String(Combobox.Objects[Combobox.ItemIndex]);

Das scheint mit 10.3 nicht mehr zu funktionieren. Ich möchte in einer OwnerDraw ComboBox das Object auslesen, was sich hinter dem aktuellen Index versteckt.
Wie komme ich an das Objekt?

So schreibe ich meine Items

Delphi-Quellcode:

type
 TGUIInfo = class(TObject)
  Name: string;
 end;

 GUIInfo := TGUIInfo.Create;
 GUIInfo.Name := 'abc';
 ComboBox8.AddItem(GUIInfo.Name, GUIInfo);

[DeddyH]

Ohne Gewähr:

Delphi-Quellcode:

// Eintragen
ComboBox8.Items.AddObject(GuiInfo.Name, GuiInfo)

Delphi-Quellcode:

// Auslesen
ShowMessage(TGuiInfo(ComboBox8.Items.Objects[i]).Name)

[haentschman]

Moin...
GUIInfo := TGUIInfo.Create; ..wo gibst du die Objekte wieder frei? Weil die Combobox ist nicht der Owner.

[DieDolly]

In einer eigenen Prozedur dafür. Eine Liste wäre mir lieber aber dann muss ich wieder die Indexe prüfen, ob der Index der Liste im Bereich Count der ComboBox ist. Schreibe deswegen direkt in die Komponente.