Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

TreeView   Найти похожие ветки 

 
deDalta   (2005-03-11 18:32) [0]

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


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

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;


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

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;



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
14-1110302107
ferr
2005-03-08 20:15
2005.03.27
Музыка


1-1110865498
Alex_k
2005-03-15 08:44
2005.03.27
Работа с Excel


4-1108496540
Коля
2005-02-15 22:42
2005.03.27
Как програмно убрать "Только чтение" в свойствах файла?


14-1110320589
Soft
2005-03-09 01:23
2005.03.27
Сколько стоит получить патент ... на человеческую душу?


3-1109801748
RaS
2005-03-03 01:15
2005.03.27
Как это сделать?