Home » Tipps & Tricks » Komponenten » TTreeView/TListView » Einem bekannten Knoten einen Unterknoten hinzufügen

Einem bekannten Knoten einen Unterknoten hinzufügen

Folgende Funktion durchsucht alle TreeNodes, die der Funktion über den Parameter ParentNodes übergeben werden, nach einem Knoten mit der Beschriftung CheckName. Wird dieser Knoten gefunden, wird er als Rückgabewert der Funktion verwendet. Wird er nicht gefunden, ist der Rückgabewert nil.

function GetTreeItems(ParentNodes: TTreeNodes; CheckName: String): TTreeNode;
var i: Integer; SCheckName: String;
begin
  Result := nil;
  SCheckName := AnsiUpperCase(CheckName);

  for i := 0 to ParentNodes.Count - 1 do
  begin
    if AnsiUpperCase(ParentNodes[i].Text) = SCheckName then
    begin
      Result := ParentNodes[i];
      Break;
    end;
  end;
end;

Aufrufbeispiel:

TreeView1.Items.AddChild(GetTreeItems(TreeView1.Items,
  'DerNameDesParentNodes'), 'Hallo Welt!');