如何使用ADDOBJECT语法
在数据库中有个表有如下字段:
ID
NAME
我想在COMBOBOX中显示NAME并且每个ITEM都带上ID值。我用如下代码实现:
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select a.user_name,a.employee_id from com_department_mf a';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
cbFixCategory.Items.AddObject(ADOQuery1.FieldByName('fc_fixname').AsString,TObject(ADOQuery1.FieldByName('fc_fixcategoryid').AsString));
ADOQuery1.Next
end;
但我取一个ITEM的OBJECT值时怎么都不对,我用的如下语句:
Caption := String(cbFixCategory.Items.Objects[0]);
总是乱码或是一些莫名其妙的字符串,请问各位大侠如何解决,此问题已困惑我数天了,谢谢帮忙,绝对给分。