[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;