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