TP. Существует ли файл?

[TwiX]

Как проверить?

[Stilet]

IF FindFirst('c:\file.txt',sr)=0 then существует
В паскале это как и в Делфи прокатывает на ура.

[TwiX]

А попроще? После асигна например.

[IT-man]

  {$I-}
  Reset(f);  // открыть файл для чтения
  {$I-}
  if IOResult <> 0 then
     // файла нет

[TwiX]

Спасибо, а что такое {$I-}?

[IT-man]

google + директивы компилятора TP7

[Alex Cones]

Сообщение от IT-man

  {$I-}
  Reset(f);  // открыть файл для чтения
  {$I-}
  if IOResult <> 0 then
     // файла нет

А закрывать если я получил ошибку (IOResult <> 0) надо? Или можно так:?

Assign(F,'File.txt');
{$I-}
Reset(F);
{$I+}
If IOResult <> 0 Then Mode:=FALSE Else
Close(F);

[IT-man]

Или можно так:?

можно так,имхо так как файл мы на чтение или запись так и не открыли

[Stilet]

так как файл мы на чтение или запись так и не открыли

Открыли. Reset открывает. Это некузявый способ. FindFirst надежнее.

[Alex Cones]

Это некузявый способ

Но не смотря на всю его некузявость в дельфи он позволяет сэкономить 20 килобайт (избавляет от необходимости подключать SysUtils). Может тогда попробовать так:?

Assign(F,'File.txt');
{$I-}
Reset(F);
If IOResult <> 0 Then Mode:=FALSE Else
Close(F);
{$I+} // перенесем сюда, дабы не узреть ошибку при закрытии неоткрытого файла