Oberste Node in TreeView finden

[Yheeky]

@Benedikt: Cool, danke :-)

Zitat:

Zitat von alzaimar

Delphi-Quellcode:

Function GetTopItem(ANode : TTreeNode) : TTreeNode;
Begin
  While ANode.Parent<>Nil do ANode := ANode.Parent;
  Result := ANode.Parent;
End;

Nur der Vollständigkeit halber.

Enspricht ja im Grunde meiner 2.Variante ;-)

[alzaimar]

Hups.

[omata]

Solange nach oben gegen, bis ANode.Parent = nil ist, was hat Result dann immer für einen Wert?

Und noch was: Wenn der übergebene Node = nil ist -> knallt es!

Also...

Delphi-Quellcode:

function GetTopItem(ANode : TTreeNode) : TTreeNode;
begin  
  while assigned(ANode) and assigned(ANode.Parent) do 
    ANode := ANode.Parent;
  Result := ANode;
end;

und was spricht gegen TreeView.Items.GetFirstNode in Verbindung mit TreeNode.getNextSibling?

[marabu]

Hallo Thorsten,

mir würde ein einziger vorgezogener Test auf Assigned(node) genügen:

Delphi-Quellcode:

function RootNode(node: TTreeNode): TTreeNode;
begin  
  if Assigned(node) then
    while Assigned(node.Parent) do 
      node := node.Parent;
  Result := node;
end;

Freundliche Grüße