Combobox + AddItem

[Sharky]

Hai bwolf;

setzen:

Delphi-Quellcode:

var
  mystring : string;
  zahl : integer;
begin
  mystring := 'blubb';
  zahl := 10;
  ComboBox1.AddItem(mystring,TObject(zahl));

auslesen:

Delphi-Quellcode:

var
  mystring : string;
  zahl : integer;
begin
  mystring := ComboBox1.Items[ComboBox1.ItemIndex];
  zahl := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);