在TREEVIEW中插入OBJECT的问题？

Question

var
P:^Ttitle_id;
Ln: TTreeNode;
begin
     Ln:=Items.AddChild(nil,'蜡烛线');
     New(P);
     p^.//这里输入你要写的数据
     LN.data:=p;
end;

Answer 1

Type
    PTitle_ID = ^TTitle_ID;
    Ttitle_ID = Packed Record
        Title : String[ 32 ];
        ID    : Integer;
End;
Var
   pTitle_ID : PTitle_id;
   Node : TTreeNode;
Begin
     Node := Tree.Selected;
     If Node <> Nil Then
     Begin
          Node := TreeView.Items.AddChild( Node, 'ABC' );
          GetMem( pTitle_ID, SizeOf( TTitle_ID ) );
          pTitle_ID^.Title := 'ABC';
          pTitle_ID^.ID    := 0;
          Node.Data        := pTitle_ID;
     End;
End;