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

Как проверить существует ли файл?   Найти похожие ветки 

← →
Muhan ©   (2005-02-03 19:51) [0]

Подскажите, плиз, функцию, которая вернет "тру" если файл существует на диске...

---

← →
Чапаев ©   (2005-02-03 20:07) [1]

FileExists().

Интуитивно.

---

← →
Gero ©   (2005-02-03 20:34) [2]

function SuperFunc(const FileName: string): string;
begin
 if FileExists(FileName) then
   Result := "тру".
end;

---

← →
HF-Trade ©   (2005-02-03 20:35) [3]

Можно и так(через одно место, но сто пудово) ;_))

Function ExistsFile(FName:String):Boolean;
Var
F:TextFile;
Begin
AssignFile(F,FName);
{$I-}
Reset(F);
{$I+}
IF IOResult<>0
Then Result:=False
Else
Begin
CloseFile(F);
Result:=True;
end;
end;

---

← →
Anatoly Podgoretsky ©   (2005-02-03 22:35) [4]

Чапаев ©   (03.02.05 20:07) [1]
нафиг интуитивно, словари для чего существуют?

---

← →
Gero ©   (2005-02-03 23:45) [5]

> но сто пудово

Ты ошибаешься.

---

← →
Юрий Зотов ©   (2005-02-04 01:23) [6]

> HF-Trade ©   (03.02.05 20:35) [3]

Файл может существовать, но быть монопольно захваченным другой программой. Тогда Ваша функция покажет, что его не существует.

---

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

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



Память: 0.46 MB
Время: 0.036 c