Проверка на наличие файла

[Vladya]

Добрый вечер! Проблема заключается в следующем: мне нужно что бы при запуске программа проверяла есть ли файл или нет, пути к файлам хранятся в ListBox'e. Программа должна проверить все пути, и если файл не найден то удалять эту строку из ListBox'a
Подскажите пожалуйста если кто знает, ато если честно даже не представляю как это можно сделать.
Заранее спасибо!

[russian-stalker]

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
//Здесь заполняем поля
...
for i:=0 to listbox1.Items.Count-1 do
if not fileexists(listbox1.Items.Strings[i]) then
listbox1.Items.Delete(i);
end;

[Dozent]

 Var
   F:file;
   i:integer;
...
for i:=0 to listbox1.Items.Count-1 do
begin
 Assign(f,listbox1.Items.Strings[i]);
{$I-}            {отключение стандартной обработки}
reset(f);        {открытие файла}
{$I+}            {включение стандартной обработки}
if IOResult=0 then  {Фаил сушествет и открыт, делаем нужные нам действия}
              else  listbox1.Items.Delete(i);
Close(f);
end;

ешё как вариант, только учтите что у вас может возникнуть проблема с выбаркой строк из листбокса, т.к. они будут сдвигатся, как вариант предлагаю запоминать номера строк которые надо удалить и потом отдельным циклом удалить ненужные строки, номера строк можно например записать в массив. Либо использовать цикл While и при удалении начинать цикл с 0 строки лист бокса а ешё лучший вариант просматривать с предидушего чтобы не делать лишнии проверки сначало...

i:=0;
While i<= listbox1.Items.Count-1 do
begin
 Assign(f,listbox1.Items.Strings[i]);
{$I-}            {отключение стандартной обработки}
reset(f);        {открытие файла}
{$I+}            {включение стандартной обработки}
if IOResult=0 then  
                   begin           
{Фаил сушествет и открыт, делаем нужные нам действия}
                     inc(i) ;
                   end 
              else  
                begin
                  listbox1.Items.Delete(i);
                  i:=-1; /// вот это действие необязательно, но чтобы наверняка можно его сделать будит братся предидуший
                end;
Close(f);
end;

[DomiNick]

Проверка на наличие файла... =\\

[Usov]

for i:=0 to listbox1.Items.Count-1 do

такой код будет работать неправильно
правильнее будет:

for i:=listbox1.Items.Count-1 downto 0 do

[W0LF]

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

for i:=0 to listbox1.Items.Count-1 do

такой код будет работать неправильно
правильнее будет:

for i:=listbox1.Items.Count-1 downto 0 do

А это случайно не одно и тоже, просто в разных порядках, первый: от 0 до ..., а ваш: от ... до 0 ?

[Dozent]

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

А это случайно не одно и тоже, просто в разных порядках, первый: от 0 до ..., а ваш: от ... до 0 ?

ну как бы да от конца листбокса проверять проше, потому что не будит выходить ошибка что несоответсвует номер строки и номер итерации, просто мне часто приходилось с этим работать и это был один из выходов чтобы не выходила ошибка цикл начинал с конца.

[Vladya]

Ребята спасибо большое за помощь!!! Очень помогли.