1:
2:
3:

begin
  // save type of the node
  Stream.Write(Art, SizeOf(Art));					

1:

https://stackoverflow.com/questions/45606992/how-to-save-load-to-from-file-in-virtualtree-component-using-delphi					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  PMyRec = ^TMyRec;
  TMyRec = record
    Caption:        WideString; //Anzeigename im Tree
    ServerAdress:   String;     //Hostname bzw. IP-Adresse in Tabelle schreiben
    Username:       String;     //User-Name
    Domain:         String;     //Domainname
    ClearPW:        WideString; //Klartestpasswort
    wallpaper:      Integer;    //Hintergrundbild anzeigen (std. 0)
    reconnection:   Integer;    //automatisches neu verbinden (std. 1)
    clipboard:      Integer;    //Zwischenablage benutzen (std. 1)
    printers:       Integer;    //Drucker in Remotesitzung benutzen (std. 0)
    PointerNodeData:Pointer;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.VirtualStringTree1FreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
  Data: PMyRec;
begin
  Data := Sender.GetNodeData(Node);
  // Explicitely free the string, the VCL cannot know that there is one but needs to free
  // it nonetheless. For more fields in such a record which must be freed use Finalize(Data^) instead touching
  // every member individually.
  Finalize(Data^);
end;					

1:
2:
3:
4:
5:

procedure TForm1.VirtualStringTree1GetNodeDataSize(Sender: TBaseVirtualTree;
  var NodeDataSize: Integer);
begin
  NodeDataSize := SizeOf(TMyRec);//WITHOUT THE CODE,ERROR COMING .
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
var
  Data: PMyRec;
begin
  // A handler for the OnGetText event is always needed as it provides the tree with the string data to display.
  Data := Sender.GetNodeData(Node);
  if Assigned(Data) then
    CellText := Data.Caption;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.VirtualStringTree1InitNode(Sender: TBaseVirtualTree;
  ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
  Data: PMyRec;
begin
  with Sender do
  begin
    Data := GetNodeData(Node);
    // Construct a node caption. This event is triggered once for each node but
    // appears asynchronously, which means when the node is displayed not when it is added.
    //Data.Caption := Format('Test %d, Index %d', [GetNodeLevel(Node), Node.Index]);
    Data.Caption := Format(DisplayName, [GetNodeLevel(Node), Node.Index]);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.VirtualStringTree1LoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Data: PMyRec;
  Len: Integer;
begin
      Data := Form1.VirtualStringTree1.GetNodeData(Node);

      Stream.read(Len, SizeOf(Len));
      SetLength(Data^.Caption, Len);
      Stream.read(PChar(Data^.Caption)^, Len*SizeOf(Char));

      Stream.read(Len, SizeOf(Len));
      SetLength(Data^.ServerAdress, Len);
      Stream.read(PChar(Data^.ServerAdress)^, Len*SizeOf(Char));

      Stream.read(Len, SizeOf(Len));
      Stream.read(Data.wallpaper, SizeOf(Data.wallpaper));

      Stream.read(Len, SizeOf(Len));
      Stream.read(Data.reconnection, SizeOf(Data.reconnection));

      Stream.read(Len, SizeOf(Len));
      Stream.read(Data.clipboard, SizeOf(Data.clipboard));

      Stream.read(Len, SizeOf(Len));
      Stream.read(Data.printers, SizeOf(Data.printers));

      Stream.read(Len, SizeOf(Len));
      Stream.Read(Data.PointerNodeData, SizeOf(Data.PointerNodeData));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure TForm1.VirtualStringTree1SaveNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Data: PMyRec;
  Len: Integer;
begin
  Data := Form1.VirtualStringTree1.GetNodeData(Node);

  Len := Length(Data^.Caption);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.Caption)^, Len*SizeOf(Char));

  Len := Length(Data^.ServerAdress);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.ServerAdress)^, Len*SizeOf(Char));

  Len := Length(Data^.Username);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.Username)^, Len*SizeOf(Char));

  Len := Length(Data^.Domain);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.Domain)^, Len*SizeOf(Char));

  Len := Length(Data.ClearPW);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.ClearPW)^, Len*SizeOf(Char));

  Stream.write(Data^.wallpaper, SizeOf(Data^.wallpaper));

  Stream.write(Data^.reconnection, SizeOf(Data^.reconnection));

  Stream.write(Data^.clipboard, SizeOf(Data^.clipboard));

  Stream.write(Data^.printers, SizeOf(Data^.printers));

  Stream.Write(Data^.PointerNodeData, SizeOf(Data^.PointerNodeData))
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button4Click(Sender: TObject);
var
NodeSafe: TFileStream;
begin
Form1.VirtualStringTree1.SaveToFile(ExtractFilePath(ParamStr(0))+ 'Connections.at1');
end;					

1:
2:
3:
4:

procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.VirtualStringTree1.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'Connections.at1');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type
  // This is a very simple record we use to store data in the nodes.
  // Since the application is responsible to manage all data including the node's caption
  // this record can be considered as minimal requirement in all VT applications.
  // Extend it to whatever your application needs.
  PMyRec = ^TMyRec;
  TMyRec = record
    Caption:        WideString; //Anzeigename im Tree
    ServerAdress:   String;     //Hostname bzw. IP-Adresse in Tabelle schreiben
    Username:       String;     //User-Name
    Domain:         String;     //Domainname
    ClearPW:        WideString; //Klartestpasswort
    wallpaper:      Integer;    //Hintergrundbild anzeigen (std. 0)
    reconnection:   Integer;    //automatisches neu verbinden (std. 1)
    clipboard:      Integer;    //Zwischenablage benutzen (std. 1)
    printers:       Integer;    //Drucker in Remotesitzung benutzen (std. 0)    
    
    PointerNodeData:Pointer;

  end;