VirtualTreeView

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Felix.

Du musst mal genau hinsehen, wer der Vater deiner Kinder ist:

Delphi-Quellcode:

var
  Node, SubNode: PVirtualNode;
begin
// ...
     while not ServiceVerkTable.Eof do
     begin
       Instance := ServiceVerkTable.FieldByName('INSTANCE').AsString;
       TreeData.FCaption := (Instance);
       // den SubNode brauchst du später noch ...
       SubNode := AddVSTStructure(VST1, Node, TreeData);
       ServiceTable.First;
       while not ServiceTable.Eof do
       begin
         Service := ServiceTable.FieldByName('Service').AsString;
         TreeData.FCaption := (Service);
         AddVSTStructure(VST1, SubNode, TreeData);
// ...

Grüße vom marabu