以前编码都是使用TTreeNode.Data,在Delphi7中使用TTreeNode.Data系统给出警告信息。 而实际我们只需要让每个TTreeNode保存一个Integer数据，就象是每个TTreeNode都具有一个Text一样，应如何做哪？ 發表人 - todayzhang 於 2003/07/27 15:13:00

可以通过使用class重新增加TTreeNode的属性，比如增加了个特text的string类型的属性；这样您就可以使用了！供参考！ //新的TTreeNode〉〉TmyTreeNode unit Unit2; interface uses ComCtrls; type TmyTreeNode=class(TTreeNode) private mytext:string; procedure settext(value:string); public property text: string read mytext write Settext; constructor Create(aowner:ttreenodes); end; implementation constructor TmyTreeNode.Create(aowner:ttreenodes); begin mytext:=''; inherited create(aowner); end; procedure TmyTreeNode.settext(value:string); begin mytext:=value; end; end. //使用 uses Unit2; -------------------------- var aa:TmyTreeNode; begin aa:=TmyTreeNode.Create(nil); aa.text:='aa'; showmessage(aa.text); end;

hi, 請參考這篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28046 利用 pInteger = ^Integer; 來當作放入 Data 的指標資料. 記得要利用 New, Dispose 來進行記憶體配置及釋放!

此處 Delphi7和Delphi6並無差異 TTreenode.data為一pointer, pointer其實只是一個integer占有4byte 故存integer在其內不須配置或Release Memory, 只要適度轉型(Cast)    例:

for i:=0 to Treeview1.items.count-1 do
  Treeview1.items[i].data:=pointer(i); //將i 塞入data中    於Treeview1Click
if Treeview1.selected <> nil then
  showmessage(inttostr(integer(Treeview1.selected.data)));

[NOTE]其實,實數的Single也是4byte, 故適度轉型一樣可直接放入 若要塞入其他資料型態就要進行記憶體配置及釋放了

引言: 而r我言u需要X每枚TreeNode保存一杷nteger觛u

若你不需要使用 TTreeView.StateImages 最方便的旁門方法是使用 TTreeNode.StateIndex 來存放這個 Integer。 不過在你的 Code 要清楚表明用途，這樣以後回來維護才不會太大問題。 當然，始終是使用 Data 最正統。

谢谢！非常感谢！ 以上4位高手分别给出了4种方法，都可以解决这个问题，都对我有很大的帮助，让我难于取舍！ 只好按响应时间的顺序了。 再次感谢几位！