Treenode的问题!

Question

定义：PNData : ^TNata
Tndata (定义）
end;atreenode.data := pndata;

Answer 1

 啊。是PNData = ^TNData

Answer 2

对立,treenode.data到底是什么,我还不清楚呢,哪位大虾解释一下?

Answer 3

type
  TQuestInfo = record
    rValue1: Integer;
    rValue2: Integer;
  end;procedure TForm1.Button1Click(Sender: TObject);
var
  aQuestInfo: ^TQuestInfo;
begin
  if not Assigned(TreeView1.Selected) then Exit;
  aQuestInfo := TreeView1.Selected.Data;
  if Assigned(aQuestInfo) then Dispose(aQuestInfo);  New(aQuestInfo);
  aQuestInfo^.rValue1 := 1;
  aQuestInfo^.rValue2 := 2;
  TreeView1.Selected.Data := aQuestInfo;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  aQuestInfo: ^TQuestInfo;
begin
  if not Assigned(TreeView1.Selected) then Exit;
  aQuestInfo := TreeView1.Selected.Data;
  if Assigned(aQuestInfo) then
    ShowMessage(Format('v1:%d,v2:%d', [aQuestInfo^.rValue1, aQuestInfo^.rValue2]));
end;

Answer 4

treenode.data//附加数据吧//还可以参与排序

Answer 5

treenode 应该是一个指针，指向你所定义的数据结构。

Answer 6

To lazecat(猫):   你说的我早试过了，编译能通过，但是运行到atreenode.data := pndata时系统错误，提示invalid viarant type conversion

Answer 7

New(aQuestInfo);
New(aQuestInfo);
New(aQuestInfo);
New(aQuestInfo);