Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Существование файла

Автор: mr.Anderson 2.9.2005, 16:59

Как проверить, существует ли файл? В PHP для этого функция FileExists есть, а в Паскале?

Автор: Pakshin A. S. 2.9.2005, 17:04

Код


Assign(f, 'some.txt');
{$I-}
reset(f);
{$I+}
if IOResult = 0
 then
  writeln('все в порядке')
 else
  writeln('файл не может быть прочитан');
...

Так пойдет?

Автор: volvo877 2.9.2005, 17:08

Код

Function FileExists(name: String): Boolean;
Var sr: SearchRec;
Begin
  FindFirst(name, AnyFile - VolumeID - Directory, sr);
  FileExists := (DosError = 0);
End;

Теперь и в Паскале есть smile

Автор: mr.Anderson 2.9.2005, 17:53

volvo877, т.е. мне так и вставлять эту функцию в код (я имею в виду, ничего менять не надо)? А затем проверять на TRUE-FALSE, так?

Автор: volvo877 2.9.2005, 18:58

Менять не надо ничего, только не забудь:

Код

Uses Dos;

и пользуйся:

Код

If FileExists('C:\test.txt') Then ...