Combobox mit tag

[pszopp]

Hallo,

Delphi-Quellcode:

procedure InsertData(const aStr : String; aValue : Integer);
begin
  ComboBox1.Items.AddObject(aStr, TObject(aValue));
end;

function GetValue(aIdx : Integer) : Integer;
begin
  Result := Integer(ComboBox1.Items.Objects[aIdx]);
end;

So würde ich es programmieren.

Gruß,
pszopp