很菜的问题

Question

listbox1.Items.AddObject('YourValue', TObject(IDValue));
var
  ID: Integer;ID := Integer(Listbox1.Items.Objects[0]);

Answer 1

listbox1.Items.AddObject('YourValue', TObject(IDValue));
var
  ID: Integer;ID := Integer(Listbox1.Items.Objects[0]);

Answer 2

这个方法可以:  listbox1.AddItem() 其中的参数AOBject:TObject就是你要保存的ID:
可以这样使用:
  listbox1.additems('test1',Tobject(fieldbyname('id').asinteger));在获取时:
  n:=integer(Listbox1.items.object[listbox1.itemindex])

Answer 3

fKind.listKind.Items.AddObject(modmydata.mysql.FieldValues['KindName'],TObject(modmydata.mysql.FieldValues['KindID']));fKind.listKind.AddItem(modmydata.mysql.FieldValues['KindName'],TObject(modmydata.mysql.FieldValues['KindID'].asinteger));两种方法都提示:
[Error] frmKind.pas(86): Invalid typecast
问题出中哪?
注:modmydata.mysql.FieldValues['KindID']是我从数据库中取出来的值

Answer 4

try this:
fKind.listKind.Items.AddObject(modmydata.mysql.FieldValues['KindName'],TObject(modmydata.mysql.FieldByName('KindID').AsInteger));