rzchecktree选定的值,该怎么处理

rzchecktree选定的值
如图：

如何取得选定项的编号，如040401,040402,040403,后面的部门名称省略？

Delphi(Pascal) code

vari:integer;begin  for i:=0 to Rzchecktree1.Items.Count-1 do begin  if Rzchecktree1.Items[i].StateIndex=2 then//打勾  begin    showmessage(Rzchecktree1.Items[i].Text);  end;  end;end;

这样会连部门名称也显示出来

[解决办法]
构建树时 把编号赋值给treeview.items[i].data := PChar('040401');

读的时候showmessage(String(Rzchecktree1.Items[i].data));