Zitat von
SauberMann:
vst.getfirst.getnext
grüße
Danke SauberMann
Nun zurück zu vst. Mit vst.getfirst komme ich an den ersten Knoten. Bei meinen Tests mit getnext und getnextsibling habe ich herausgefunden das ich mich scheinbar nur mit getnextsibling an den nächsten Hauptknoten vorarbeiten kann.
Delphi-Quellcode:
procedure TForm2.Button3Click(Sender: TObject);
var
daten : TOAutos;
gruppe : TOAutoMarken;
node: PVirtualNode;
begin
node:=vst.GetFirst;
showmessage('Anzahl Kind node nach GETFIRST: ' + IntToStr(vst.ChildCount[node]));
node:=vst.GetNext(node);
showmessage('Anzahl Kind node nach GETNEXT: ' + IntToStr(vst.ChildCount[node]));
node:=vst.GetFirst;
showmessage('Anzahl Kind node nach GETFIRST: ' + IntToStr(vst.ChildCount[node]));
node:=vst.GetNextSibling(node);
showmessage('Anzahl Kind node nach GETNextSibling: ' + IntToStr(vst.ChildCount[node]));
end;
Auf den ersten Blick sieht die Navigation innerhalb der Struktur mühsam aus
