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

[russian-stalker]

Сообственно сабж.
Файл для проверки: c:\1.txt

[Showy]

if FileExists('c:\1.txt') then
  ShowMessage('Файл c:\1.txt существует')
else
  ShowMessage('Файл c:\1.txt не существует');

[russian-stalker]

Спасибо, а то я долблю FileExists:='c:\1.txt';

[Alar]

Проверяет файл до и после его удаления

var
  fileName : string;
  myFile   : TextFile;
  data     : string;

begin
  // Попытка открыть текстовый файл для записи
  fileName := 'Test.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);

  // Запись в файл
  Write(myFile, 'Hello World');

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла в режиме чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, data);
    ShowMessage(data);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);

  // Теперь проверяем существует ли файл
  if FileExists(fileName)
  then ShowMessage(fileName+' существует')
  else ShowMessage(fileName+' не существует');

  // Удаление файла и новый просмотр
  DeleteFile(fileName);
  if FileExists(fileName)
  then ShowMessage(fileName+' всё ещё существует!')
  else ShowMessage(fileName+' больше не существует');
end;

http://delphibasics.ru/FileExists.php

[russian-stalker]

не конечно спасибо но мне хватило FileExists(fileName)