请问下载Delphi中的TTreeNode节点怎样储存两个字符串？

Question

每个节点需储存两个字符串，比如一个是显示的文件名，另一个是文件路径。
但TTreeNode只有一个Text属性能储存字符串，不知还有没有其它属性可以，或者怎样给这个节点增加个属性如Hint（这个属性只要能储存字符串即可，不需做其它用途）。

Answer 1

赋值：var ps:PString;New(ps);ps^='string';Node.Data:=ps读取：var ps:PString;ps:=Node.Data;Result:=ps^;多个值使用record，仍使用Node.Data

Answer 2

//函算返回一个你在treeview1里单几得到的TTreeNodefunction TForm1.getNode:TTreeNode;beginResult := TreeView1.Selectedend;如果是不要自己去选择，要程序去判断，代码如下：function TForm1.getNode:TTreeNode;varthisnode : TTreeNode;beginthisnode := TreeView1.Items.GetFirstNode;while thisnode<>nil dobeginif thisnode.text = '我的程序' thenbeginResult := thisnode;//得到你要的TTreeNode;break;end;thisnode := thisnode.getnode;end;Result := nil;end;&nbsp;