Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.91.79.134] |
|
Сообщ.
#1
,
|
|
|
Function FindNode(Tree: TTreeView; Node: TTreeNode; S: String): TTreeNode; Var t:Integer; Begin Result:=nil; { Если поиск идёт в корне } IF not Assigned(Node) then Begin Node:=Tree.Items.GetFirstNode; While Assigned(Node) Do Begin IF Node.Text = S then Begin Result:=Node; Break; End; {IF} Node:=Node.GetNextSibling; End; {While} { или если в другой ветви } End else For t:=0 to Node.Count - 1 Do IF Node[t].Text = S then Begin Result:=Node[t]; Break; End; {else} End; |