UniComboBox .. save unique Database number to item?

[erich.wanker]

Hy... 

in a loop - i add Database values to a uniComboBox:

    while not ZQuery1.Eof do
    begin
      UniComboBox1.Items.Append(ZQuery1.FieldByName('customer_name').asstring);
      ZQuery1.Next;
    end;

Can i save the "unique database Integer"  to the item also ? .. 

i want to read the unique Integer AND the UniComboBox1.Text in procedure TuniForm.UniComboBox1Change(Sender: TObject);

 

ThanX

 

 

 

[Sherzod]

Hi,

For example...

UniComboBox1.Items.AddObject('Text1', TObject(1));

procedure TMainForm.UniComboBox1Change(Sender: TObject);
begin
  ShowMessage(IntToStr(Integer(UniComboBox1.Items.Objects[UniComboBox1.ItemIndex])));
end;

 

[erich.wanker]

PERFECT ..

 

Thank you very much :-)