一个Combox的基础问题

Question

我用的是Combox的控件， 下拉显示的内容是一个字符串，但是还想存一个 对应的ID值。
访问的时候可能就是通过ID值处理的。
有什么好的方法啊。

Answer 1

可以直接取得字符串的对应序号做为ID
//直接取序号
  ComboBox1.ItemIndex
//或者，知道字符串Str内容，取得该字符串Str的序号ID
  ComboBox1.Items.IndexOf(Str)

Answer 2

ComboBox1.Items.AddObject，第二个参数，保存id，读取时转换一下 integer()

Answer 3

AddObject的使用方法
integer 于 Object
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=5 to 10 do
      ListBox1.Items.AddObject('你好',pointer(i*8));//添加数据的同时随便加一个integer
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
  i:=integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);
  showmessagefmt('%d',[i]);
end;

Answer 4

integer(ListBox1.Items.Objects[ListBox1.ItemIndex])