100分(关于树:怎样给TTreeNode的Data属性赋一个字符串?)

Question

100分(关于树:怎样给TTreeNode的Data属性赋一个字符串?)
如:
var
  No: string;
  Name: string;
  TreeNode: TTreeNode;
begin
  No := '11';
  Name := 'wert';
  TreeNode := TTreeNode.create(Self);
  TreeNode := TreeView1.Items.AddChild(nil,ItemName);
  TreeeNode.Data = ?
end;
// 我知道TreeNode.Data是个指针,但我不知道如何操作,高手帮帮忙吧,
多谢了!

Answer 1

定义一个 type
如下：
type
   PMyRec = ^TMyRec;
   TMyRec = record
      key: Widestring;
      text: widestring;
end; var pp:Pmyrec;Begin
new(pp);
pp.Key:='...';
pp.Text:='uuuu';TreeNode.Data:=pp;
End;

Answer 2

PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;
var tmp:Pmyrec
new(tmp);
tmp.fname:='abcd';
tmp.lname:='dfdf';
treenode.data:=tmp;

Answer 3

huayuxing(huayuxing)  方法很不错呀,
我也是这么用的

Answer 4

data是个指针，你用pchar（'123'）；就好了

Answer 5

添加：
p:pstring;
s:string;
node1:Ttreenode;
new(p);
p^:='asdfasdfasd';
treeview1.Items.AddChildObject(node1,'asdfasd',p);
使用：
p:=node1.data;
s:=p^;

Answer 6

p:pstring;
s:string;
n:Ttreenode;new(p);
p^:=s;
n.data:=p;

Answer 7

//定义结构
type
  RCurValue = record
    ID:integer;
    Name:String;
    ParentID:integer;
  end;
  PCurValue = ^RCurValue;
/////////////////////////定义实例
var
  CurNode:TTreeNode;  
  CurValue:PCurValue;
//////////////////
//具体操作
     new(CurValue);
      With CurValue^ do
        begin
          ID := 1;
          Name :=  'jaja';
          ParentID := 0;
        end;
     CurNode := Self.Items.AddChild(PNode,CurValue.Name);
     CurNode.Data := CurValue;
/////////////////////////////////