Удалить из ListView определённые строки

[Shouldercannon]

Есть ListView со строками. Требуется выполнить поиск в ListView на < Сервер не отвечает > и удалить эту строку целиком.
Происходить это должно в цикле. Начал, но закончить не могу

    for i := 0 to LVFavorite.Items.Count do
    begin
      if LVFavorite.Items[LVFavorite.ItemIndex].SubItems[1] = '< Сервер не отвечает >' then LVFavorite.Items.Delete(i);
    end;

Явно дурь

[Serge_Bliznykov]

никогда не работал с ListView,
но, вроде бы, по всем понятиям, должно быть так:

  for i := LVFavorite.Items.Count-1 downto 0 do
    if LVFavorite.Items[i].SubItems[1] = '< Сервер не отвечает >'
      then LVFavorite.Items[i].Delete();

разумеется, предложенный код я не проверял...

[notHaker]

Эмм. LVFavorite.Items.Count - 1, во первых. Во вторых не таким циклом.

i := 0;
while i < LVFavorite.Items.Count do
begin
  if LVFavorite.Items[i].caption = '< Сервер не отвечает >' then
    LVFavorite.Items.Delete(i)
  else inc(i);
end;