Einem bekannten Knoten einen Unterknoten hinzufügen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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!');