VirtualStringTree Node anhand des Index ermitteln

[Hawkeye219]

Hallo,

hier ist mein Versuch:

Delphi-Quellcode:

function GetAbsoluteNode (aTree: TBaseVirtualTree; aIndex: Cardinal): PVirtualNode;
begin
  Result := aTree.GetFirst;
  while (Assigned(Result) and (aIndex > 0)) do
    if (aIndex >= Result.TotalCount) then
      begin
        Dec (aIndex, Result.TotalCount);
        Result := aTree.GetNextSibling(Result);
      end
    else
      begin
        Dec (aIndex);
        Result := aTree.GetFirstChild(Result);
      end;
end;

Gruß Hawkeye