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.