Как проверить наличие файла?

← →
Santra (2004-02-20 19:57) [0]

Подскажите как проверить наличие файла, например
IF файл найден(существует) then begin.....

← →
Vit@ly (2004-02-20 20:01) [1]

FileExists

← →
Тимохов (2004-02-20 20:01) [2]

fileexists

← →
Santra (2004-02-20 20:04) [3]

То есть если писать полностью то будет так???

If FileExists(ParamStr(0)+"foto\image000.jpg",faArchive,sr)=0
then
begin.....

← →
Rouse_ (2004-02-20 20:05) [4]

If FileExists(ParamStr(0)+"foto\image000.jpg") then begin.....

← →
Тимохов (2004-02-20 20:06) [5]

> Rouse_ © (20.02.04 20:05) [4]

ИМХО путь сначала надо вырезать из paramstr(0)

← →
Rouse_ (2004-02-20 20:06) [6]

Точнее:
If FileExists(ExtractFilePath(ParamStr(0)) + "foto\image000.jpg") then begin.....

← →
wisekaa (2004-02-20 20:07) [7]

> IF файл найден(существует) then begin.....

if FindMyFile then begin
end;

function FindMyFile: boolean;
var
SearchRec: TSearchRec;
begin
result:=false
if FindFirst("c:\*.*", faAnyFile, SearchRec) = 0 then result:=true;
end;

← →
Rouse_ (2004-02-20 20:07) [8]

> [5] Тимохов © (20.02.04 20:06)
Исправился - не обратил в начале внимания - только потом увидел ;)

← →
Тимохов (2004-02-20 20:09) [9]

> wisekaa © (20.02.04 20:07) [7]

А утечка русурсов?
FindClose еще бы :))))

← →
Santra (2004-02-20 20:11) [10]

Я сделал так If FileExists(ExtractFilePath(ParamStr(0)) + "foto\image000.jpg") then
begin..... В даноом случае никакой утечки ресурсов нету....?

← →
Тимохов (2004-02-20 20:12) [11]

> Santra (20.02.04 20:11) [10]

нету

← →
Santra (2004-02-20 20:13) [12]

ОК всем спасибо...

← →
wisekaa (2004-02-20 20:13) [13]

> Тимохов ©

Не спорю.

function FindMyFile(NeedFile: string): boolean;
var
SearchRec: TSearchRec;
begin
result:=false
if FindFirst(NeedFile, faAnyFile, SearchRec) = 0 then result:=true;
FindClose(SearchRec);
end;

← →
Santra (2004-02-20 20:15) [14]

wisekaa © (20.02.04 20:13) [13]

А в чем разница между твоим примером и этим FileExists(ExtractFilePath(ParamStr(0)) + "foto\image000.jpg")

ведь данный пример намного проще?

← →
Тимохов (2004-02-20 20:16) [15]

> Santra (20.02.04 20:15) [14]

Разница в том, что в примере wisekaa можно проверять наличие файла с определенными атрибутами.

← →
wisekaa (2004-02-21 00:43) [16]

> Santra

А также можно искать не конкретное имя файла, а файлы по маске.
(image*.j*).

Как проверить наличие файла? Найти похожие ветки