Zugrifffehler beim Verschieben von Einträgen eines TreeView

[Muetze1]

Zitat von benst:

Habe schon in der Hilfe umgesucht, aber ich finde keine geschickte Möglichkeit, die Anzahl der Elemente in oberster Ebene zu bekommen.

Einfach iterieren?

Delphi-Quellcode:

function NodeLevelCounter(const AItems: TTreeNodes): Integer;
var
  lNode: TTreeNode;
begin
  result := 0;

  lNode := AItems.GetFirstNode;
  while assigned(lNode) do
  begin
    Inc(Result);
    lNode := lNode.getNextSibling;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := IntToStr(NodeLevelCounter(TreeView1.Items));
end;