| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TreeView

deDalta ©   (2005-03-11 18:32:00) 

Как в TreeView найти ветку зная только текстовое значение ее названия?

---

Александр Иванов   (2005-03-11 19:18:00) [1]

function FindNode(str:string;Node:TTreeNode):TTreeNode;
var i:integer;Buf:TTreeNode;
begin
  if Node.Text = str then
    Result:=Node
  else
    begin
      Buff:=nil;
      for i:=0 to Node.Item.Count-1 do
        begin
          Buf:=FindNode();
          if Buf<>nil then
            begin
              Result:=Buff;
             Break;
            end;
        end;
    end;
end;

---

Александр Иванов   (2005-03-11 19:15:00) [2]

function FindNode(str:string;Node:TTreeNode):TTreeNode;
var i:integer;Buf:TTreeNode;
 begin
   if Node.Text = str then
     Result:=Node
   else
     Buff:=nil;
     begin
       for i:=0 to Node.Item.Count-1 do
         begin
           Buf:=FindNode();
           if Buf<>nil then
             begin
               Result:=Buff;
              Break;
             end;
         end;
     end;
 end;

---

Наверх