Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
ВнизПроверка наличия файла Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.025 c