combobox;的ITEM 上绑定对象

Question

type
  pPubID = ^TPubID;
  TPubId = class
    id :string;
    name :string;
  end;
....
var
  pid : PPubid;
begin
        new(pid);
        pid^.id :=inttostr(qry_pub.fieldbyname('id').asinteger);
        pid^.name := qry_pub.fieldbyname('name').asstring;
        cob_pub.Properties.Items.Add(qry_pub.fieldbyname('name').asstring);
        cob_pub.Properties.Items.Objects[i] := pid^;
        dispose(pid);
        qry_pub.Next;
end;    //我用普通的combobox,目的是在ComboBox的item 上绑定一个对象,在选择Item的时候,可以直接取对应的ID,我不知道该怎么用这个指针

Answer 1

不用指针
var
  pid : TPubId ;
begin
        pid:= tpubid.create;
        pid.id :=inttostr(qry_pub.fieldbyname('id').asinteger);
        pid.name := qry_pub.fieldbyname('name').asstring;
        cob_pub.Properties.Items.Addobject(qry_pub.fieldbyname('name').asstring,pid);
        qry_pub.Next;
end;

Answer 2

1.用LookUPcombobox最简单2.ComboBox1.Items.AddObject('Name',
      TObject);//用Class吧，不用Record

Answer 3

LOOKUPCOMBOBOX　选定之后他要写到数据集去吧,　楼上的老兄,要释放吗

Answer 4

我要怎么调用已经绑定在ITEM上ID