VPF::Существование файла - Форум программистов

mr.Anderson

Дата 2.9.2005, 16:59 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

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

--------------------

Pakshin A. S.

Дата 2.9.2005, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Код


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

Так пойдет?

volvo877

Дата 2.9.2005, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код

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 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

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

--------------------

volvo877

Дата 2.9.2005, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

Код

Uses Dos;

и пользуйся:

Код

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

Это сообщение отредактировал(а) volvo877 - 2.9.2005, 18:59

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »