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

← →
DIS © (2004-03-07 22:24) [0]

Нужна в программе функция которая проверяла наличие файла. При его отсутствии не запускалась и выдавала сообщение.
Благодарю за ответ.

← →
YurikGl © (2004-03-07 22:26) [1]

Самый простой способ.
Пробуешь его открыть на чтение. Если не открылось, значит файла нет.

← →
Verg © (2004-03-07 22:33) [2]

Можно и FileExists, если религия не запрещает...

← →
Fay © (2004-03-07 23:00) [3]

YurikGl © (07.03.04 22:26) [1]
... или каталога

← →
Fay © (2004-03-07 23:03) [4]

Удалено модератором
Примечание: Следи за выражениями...

← →
Fay © (2004-03-07 23:05) [5]

function FileExists4U(s : string) : Boolean; var sr : Windows.WIN32_FIND_DATA; h : THandle; begin Result := False; h := Windows.FindFirstFile(PChar(s), sr); if h = DWORD(-1) then Exit else Windows.FindClose(h); Result := (sr.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0; end;

← →
YurikGl © (2004-03-07 23:22) [6]

Я ж самый простой способ предложил. :)

← →
Verg © (2004-03-07 23:33) [7]

> YurikGl © (07.03.04 23:22) [6]
> Я ж самый простой способ предложил. :)

Я - самый сложный :)))))))))
способ.

← →
DIS © (2004-03-07 23:58) [8]

Fay Подскажите пожалуйста дураку куда писать имя файла?

← →
default © (2004-03-08 00:01) [9]

DIS © (07.03.04 23:58) [8]
параметр один

← →
Gero © (2004-03-08 09:38) [10]

Удалено модератором
Примечание: Следи за выражениями...

FileExists4U(имя файла)

> Fay © (07.03.04 23:05) [5]

Пожалуй, Вашу функцию можно записать в одну строку:

function FileExists4U(s : string) : Boolean;
begin
Result := FileExists(s)
end;

Причем, как Вы понимаете, эта одна строка показывает, что смысл такой функции сводится к нулю.

> Gero © (08.03.04 15:23) [13]

А, да. Это важнейшее достоинство. Особенно, когда автор программы интересуется, куда писать имя файла.

Проверка наличия файла Найти похожие ветки