Помогите новичку.
Имеем:

PStructFile=^StructFile;
StructFile = record
ItemName:string; // имя узла
ItemFunction:string; // просто текст
ItemDescription:string; //описание
end;

var
p:PStructFile;
begin
New(P);
P^.ItemName='';
P^.ItemDescription=....
Node.Date:=P;
end;

Как можно получить доступ к Node.Data.ИмяПоля?
Спасибо!

Здравствуйте, mr.Spok, Вы писали:

MS>Помогите новичку.
MS>Имеем:

MS>PStructFile=^StructFile;
MS>StructFile = record
MS> ItemName:string; // имя узла
MS> ItemFunction:string; // просто текст
MS> ItemDescription:string; //описание
MS> end;

MS>var
MS>p:PStructFile;
MS>begin
MS>New(P);
MS>P^.ItemName='';
MS>P^.ItemDescription=....
MS>Node.Date:=P;
MS>end;

MS>Как можно получить доступ к Node.Data.ИмяПоля?
MS>Спасибо!

PStructFile(Node.Data)^.имя_поля

Удачи.

Здравствуйте, mr.Spok, Вы писали:

MS>Помогите новичку.
MS>Имеем:

MS>PStructFile=^StructFile;
MS>StructFile = record
MS> ItemName:string; // имя узла
MS> ItemFunction:string; // просто текст
MS> ItemDescription:string; //описание
MS> end;

MS>var
MS>p:PStructFile;
MS>begin
MS>New(P);
MS>P^.ItemName='';
MS>P^.ItemDescription=....
MS>Node.Date:=P;
MS>end;

MS>Как можно получить доступ к Node.Data.ИмяПоля?
MS>Спасибо!

var
p: PStructFile;
begin
p := Node.Date;
p.ИмяПоля ...
end;