Поиск и удаление битых путей

[Shouldercannon]

Есть ListBox1, в нём содержатся записи следующего содержания:
D:\cfg\autoexec.cfg
D:\cfg\banned_ip.cfg
D:\cfg\banned_user.cfg
D:\cfg\bot.cfg
D:\mapcycle.txt
D:\maplist.txt
Нужно выполнить проверку на наличие битых путей (путь на удалённый файл) и удалить их. Как сделать такое?

[raxp]

if fileexists('filename') then ...

[Shouldercannon]

А как это можно сделать в цикле. Что бы была выполнена проверка всех находящихся в ListBox путей и соответственно выполнена чистка.

[DomiNick]

ListBox1.Items.Count - количество строк в ListBox
ListBox1.Items.Strings[i] - i-я строка в ListBox (нумерация начинается с нуля)

[Shouldercannon]

Всёравно что-то не догоню

[russian-stalker]

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
i:=0;
while i<listbox1.items.count do
begin
if not fileexists(ListBox1.Items.Strings[i]) then
listbox1.Items.Delete(i);
inc(i);
end;
end;

[mihali4]

while i<listbox1.items.count-1 do
красное - убрать.
Иначе последний итемс не будет анализироваться.

[russian-stalker]

Ага поправил, спасибо

[Shouldercannon]

Спасибо. Пример хороший, но есть одна загвоЗДка он не с первого раза убивает все битые ссылки. Приходится несколько раз делать проверку.

[Пепел Феникса]

var
i:integer;
begin
i:=0;
while i<listbox1.items.count do
 if not fileexists(ListBox1.Items.Strings[i]) then listbox1.Items.Delete(i) else inc(i);
end