VirtualTreeView und Baumstruktur

[Albi]

Vielen Dank für die Hilfe, ich habe deinen Code etwas abgeändert und habe nun nach einer Woche mühne und viel Hilfe von Dir das gewünschte Ergebnis.

Hier nun der Code für alle die das gleiche Problem haben.

Delphi-Quellcode:

Procedure TForm1.BuildTree;
var
  TreeObject: TTreeDataClass;
  Wurzel: PVirtualNode;
begin
  VST.BeginUpdate;
  VST.NodeDataSize:= SizeOf(TTreeData);
  VST.DeleteChildren(VST.RootNode, true);
  While Not Query1.Eof Do
  Begin
  TreeObject:= TTreeDataClass.Create;                    
  TreeObject.Vorname:= Query1.FieldByName('MVorname').AsString; //Hier werden die Root eingetragen
  TreeObject.Name:= Query1.fieldByName('MName').AsString;
  Wurzel:= AddVSTObject(VST, Nil, TreeObject);
  If Query1.FieldByName('MNameGF1').AsString > '' Then //hier werden die Notes eingelesen
    Begin
      TreeObject:= TTreeDataClass.Create;
      Try
        If Query1.FieldByName('MNameGF1').AsString > '' Then
        Begin
        TreeObject.NameGF1:= Query1.FieldByName('MNameGF1').AsString;
        TreeObject.VornameGF1:= Query1.FieldByName('MVornameGF1').AsString;
        AddVstObject(VST,wurzel, TreeObject);
        end;
      except
      TreeObject.Free;
      end;
    end;
    Query1.Next;
   end;
   VST.EndUpdate;
end;

Den Rest habe ich wie oben gelassen und ich kann nur noch vielen Dank sagen.