Конструкция TTreeNode.Data

[Reqq]

Столкнулся с примером следующего содержания, код не полный общий смысл таков что мы записываем характеристики узлов из editov в структуру оттуда в NewNode.Data.

type
  PNodeOptions=^NodeOptions;
 NodeOptions = record
      Name:string[255];
      Surname:string[255];
      Address:string[255];
      Email:string[255];
    end;

var
  NodeName:string;
  NodeData:PNodeOptions;
  NewNode:TTreeNode;
Begin
  NodeData:=new (PNodeOptions);
  NewNode.Data:=NodeData;// Вот собственно корень вех зол. Что это за свойство объекта TTreeNode в которое можно записать структуру. Что туда вообще можно     записывать? 

[Аватар]

А тут структура и не записывается, а записывается указатель на структуру в соответствии с типом Data - Pointer

[Alter]

procedure TForm1.Button1Click(Sender: TObject);
type
  PNodeOptions = ^NodeOptions;
  NodeOptions = record
    Name: string[255];
    Surname: string[255];
    Address: string[255];
    Email: string[255];
end;
var
  NodeName: string;
  NodeData: PNodeOptions;
  NewNode: TTreeNode;
begin
 New(NodeData);
  try
 NewNode.Data := NodeData;
  finally
 Dispose(NodeData);
  end;
end;

В TTreeNode свойство Data, типа Pointer. Он указатель, может принимать любое значение, т.к. он указатель. Подробности | TTreeNode.Data

[Reqq]

А в NewNode.Data можно записать только указатель?

[Аватар]

Ссылку на любой объект, а так же TreeNode.Data:=Pointer(100) - читать Integer(TreeNode.Data). Вместо 100 может быть любая переменная типа Integer или совместимого

[Reqq]

TreeNode.Data:=Pointer(100);
a:=Integer(TreeNode.Data);
При такой конструкции a будет равно 100 ?

[Аватар]

Сообщение от Reqq

TreeNode.Data:=Pointer(100);
a:=Integer(TreeNode.Data);
При такой конструкции a будет равно 100 ?

Об этом же и речь

[Reqq]

Спасибо, просветил ))