Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
Вниз
Как проверить существует ли файл? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
