VirtualStringTree Node anhand des Index ermitteln

[himitsu]

nee, ist schon OK so ... wollte auch grad sowas vorschlagen

es läßt sich nur noch etwas kürzen

Delphi-Quellcode:

Function TMainForm.GetNodeByIndex(iIndex : Integer) : PVirtualNode;
begin
  Result := VST.GetFirst(True);
  while Assigned(Result) and (vst.AbsoluteIndex(Result) <> iIndex) do
    Result := Vst.GetNext(Result, True);
end;

in Delphi kann man auch direkt das Result nutzen ... nicht so wie in C, wo da auch gleich die Funkction verlassen wird.


Ansonten könnte man das Ganze noch etwas optimieren ... falls es dir nicht schnell genug ist.

Delphi-Quellcode:

Function TMainForm.GetNodeByIndex(iIndex : Integer) : PVirtualNode;
begin
  Result := VST.GetFirst(True);
  while Assigned(Result) and (iIndex <> 0) do
  begin
    Result := Vst.GetNext(Result, True);
    Dec(iIndex);
  end;
end;

oder man schaut im beim nächsten Sibling nach, was der für einen absoluten Index hat und überspringt mit .NextSibling einfach die SubNodes des aktuellen Nodes, da dort auf keinen Fall das gesuchte drinnen ist.


[edit]
es gibt doch ein Problem ... wenn der Index nicht vorkommt, dann geht deine Schleife über den letzen Node hinaus ... das Selbe, wenn garkein Node vorhanden war.


[add]
@sh17: wenn man mit GetPrev nach oben geht, dann gibt Absolute Index sozusagen die Anzahl der Knoten über dir an,
also den absoluten Index zum RootNode