Скачать: CL | DM;

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

← →
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]

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

---

← →
YurikGl ©   (2004-03-08 11:56) [11]

FileExists4U(имя файла)

---

← →
Юрий Зотов ©   (2004-03-08 13:20) [12]

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

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

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

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

---

← →
Gero ©   (2004-03-08 15:23) [13]

> Юрий Зотов ©   (08.03.04 13:20) [12]

Так предложенная функция не будет требовать SysUtils, в отличие от FileExists.

---

← →
Юрий Зотов ©   (2004-03-08 15:50) [14]

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

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

---

← →
Gero ©   (2004-03-08 15:53) [15]

> Юрий Зотов ©   (08.03.04 15:50) [14]

Как всегда, Вы правы :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.029 c