Дежурный стрелочник
Группа: Участник
Сообщений: 32
|
Помогите перевести
| CODE |
type
PVSTRecord = ^TVSTRecord;
TVSTRecord = record
ElementName: string;
ElementNumber: Integer;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
RootNode, ChildNode: PVirtualNode;
I: Integer;
Data: PVSTRecord;
begin
RootNode := VST.AddChild(VST.RootNode);
if not (vsInitialized in RootNode.States) then
VST.ReinitNode(RootNode, False);
Data := VST.GetNodeData(RootNode);
Data.ElementName := 'Корневой элемент';
Data.ElementNumber := 0;
for I := 1 to 10 do
begin
ChildNode := VST.AddChild(RootNode);
if not (vsInitialized in ChildNode.States) then
VST.ReinitNode(ChildNode, False);
Data := VST.GetNodeData(ChildNode);
Data.ElementName := 'Дочерний элемент';
Data.ElementNumber := I;
end;
end;
procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
Data: PVSTRecord;
begin
Data := Sender.GetNodeData(Node);
if Assigned(Data) then
Finalize(Data^);
end;
|
|
