ComboBox的使用

Question

请教一个问题啊(delphi)
表中有两个字段
   楼编号  楼名称
有一个combobox提供楼名称选择,但插入数据库时要插入编号,通过sql把搂编号，楼名称都取出来后，怎样根据用户选择的楼,把编号插入其他表呢?有什么方法实现比较好啊?

Answer 1

回复：用ComboBox1.Items.AddObject(const S: string; AObject: TObject)；
s:='楼名称';
定义一个类
type
TID=Class
  ID:string;//编号
end每次创建一个对象，然后把编号给ID.
调用上面的函数将名称和类加入，这样就显示出了名称，并且每个ITem会挂上一个对象。
取的时候用Items.Objects[Index: Integer]将对象取出。最后注意在关闭窗口时候在窗后的Destroy事件中要释放对象。

Answer 2

那个DBComboboxLookup可以实现你的要求.

Answer 3

var
  s:^String;
begin
  new( s );
  s^:='hello world';
  self.ComboBox1.Items.AddObject( 'a', TObject( s ) );var
  s:^String;
begin
  s:=Pointer( self.ComboBox1.Items.Objects[self.ComboBox1.ItemIndex] );
  showmessage( s^ );记得把new出来的指针dispose掉