Hallo, ja wieder eine Frage zum Thema VirtualStringTree.

In dem Beispiel hier: http://www.delphipraxis.net/internal...t.php?t=147515 wird ja folgende Struktur gebildet:

markieren

Delphi-Quellcode:

node
  subnode
  subnode
  subnode
node
  subnode
  subnode
  subnode

Mit vst.getfirst erhalte ich den ersten knoten. Kann ich den ersten Knoten bzw den zweiten Hauptknoten auch irgendwie direkt über einen Index anspringen ?
Also irgendwas wie

node := vst.node[0] bzw node := vst.node[1] für den 2. Hauptknoten.

Habe bisher sowas nicht gesehen.

Danke schon mal.

vst.getfirst.getnext grüße

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.

zusammenfalten · markieren

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