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

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

← →
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*).

---

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

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



Память: 0.47 MB
Время: 0.01 c