【结】checklistbox

liubin

如何将一个键、值的形式存入Checklistbox的Item中
var
  lob: integer;
beign
  lob := strtoint('1');
  checklistbox.item.addObject('名称',TObject(lob))
end;

liubin

解决了，结贴吧

定义：
Tcass = Class(Tobject)
id:string;
name:string;
end;
添加：
var
  lob:tcass
begin
  lob:= Tcass.create;
  lob.id := '1';
  lob.name := '名称';
  checklistbox.items.addobject('名称',lob)
  lob.free;
end;

调用：
Tcass(checklistbox.items.objects[checklistbox.itemindex].id)

atiger

谢谢楼主共享