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

← →
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]
нафиг интуитивно, словари для чего существуют?

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

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

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

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

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