Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Muhan © (2005-02-03 19:51:00)
Подскажите, плиз, функцию, которая вернет "тру" если файл существует на диске...

Юрий Зотов (2005-02-04 01:23:00) [1]
> HF-Trade © (03.02.05 20:35) [3]

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

Gero (2005-02-03 23:45:00) [2]

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

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

Anatoly Podgoretsky (2005-02-03 22:35:00) [3]
Чапаев © (03.02.05 20:07) [1]
нафиг интуитивно, словари для чего существуют?

HF-Trade (2005-02-03 20:35:00) [4]
Можно и так(через одно место, но сто пудово) ;_))

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;

Gero (2005-02-03 20:34:00) [5]
function SuperFunc(const FileName: string): string;
begin
if FileExists(FileName) then
Result := 'тру'.
end;

Чапаев (2005-02-03 20:07:00) [6]
FileExists().

Интуитивно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »