[mmonster]

Есть дерево:
- Ветка1
Запись1
- Ветка2
Запись2
-Ветка3
Запись1

Нужно удалить все записи с именем "Запись1"...
Делаю так:

Код:

var
 nd : TTreeNode;
begin
 nd := TreeView1.Items[0];
 while nd <> nil do
 begin
  if nd.Text = 'Запись1' then nd.Delete;
  nd := nd.GetNext;
 end;
end;

Удаляется только первая найденая и выход из цикла. Что тут нетак?

[lmikle]

Код:

for I := TreeView1.Items.Count-1 DownTo 0 Do
 if TreeView1.Items[i].Text = 'Запись1' 
   Then TreeView1.Items.Delete(I);

[icWasya]

Сообщение от lmikle

Код:

for I := TreeView1.Items.Count-1 DownTo 0 Do
 if TreeView1.Items[i].Text = 'Запись1' 
   Then TreeView1.Items.Delete(I);

то же неправильно

Код:

var
 nd : TTreeNode;
   I : Integer
begin

 I := TreeView1.Items.Count-1;
 
 while I >= 0 Do begin
   nd := TreeView1.Items[i];
   if nd.Text = 'Запись1' 
   then nd.Delete 
   else Dec(I);
 end;
end;

[PhoeniX]

Ты бы код проверил, свой и lmikle, перед тем как фигню писать...

[Ildar-tsr]

Наверно имеется в виду последняя строчка

Код:

Then TreeView1.Items.Delete(I);

а надо

Код:

Then TreeView1.Items[i].Delete;

А вот зачем заменять конструкцию for..downto..do на while совершенно не понятно.

[PhoeniX]

Да, действительно, для Delete надо передавать нод, либо использовать метод Node.Delete. Но вот замена на while СОВСЕМ непонятна.