Автор Евгений задал вопрос в разделе Другие языки и технологии
Как в Паскале проверить существование файла?! и получил лучший ответ
Ответ от Великий Шушпанчик[гуру]
В Паскале такой встроенной функции нету, вот Вам вариант:function fileexists(var filename: string): boolean;var f: file;begin {$I-} assign(f,filename); reset(f); {$I+} fileexists:=(ioresult=0) and (filename<>'');end;Работает не очень быстро, но в Дельфях такая функция еще тупее.Гораздо быстрее реализовать такую функцию через FindFirst, но тогда она не будет отличать файлы от каталогов
Ответ от Александр Ильин[гуру]
Можно проверку существования через GetFAttr делать. Так оно быстрее.uses Dos;function FileExists(FileName: String): Boolean;var attr: Word; f: File;begin Assign(f, FileName); GetFAttr(f, attr); FileExists := False; if DosError <> 0 then Exit; FileExists := (attr and (VolumeID or Directory)) = 0;end;
Можно проверку существования через GetFAttr делать. Так оно быстрее.uses Dos;function FileExists(FileName: String): Boolean;var attr: Word; f: File;begin Assign(f, FileName); GetFAttr(f, attr); FileExists := False; if DosError <> 0 then Exit; FileExists := (attr and (VolumeID or Directory)) = 0;end;
Ответ от Василий Катаев[гуру]
в дельфе FileExists (FileName)
в дельфе FileExists (FileName)
Ответ от Николай[гуру]
в паскале этой функции нет
в паскале этой функции нет
Ответ от Vesna[гуру]
может быть if (RESET('имя файла') ) then Файл существуетelse Не существует Великий Шушпанчик прав... даже в справке по Pascal этот пример приведен ))
может быть if (RESET('имя файла') ) then Файл существуетelse Не существует Великий Шушпанчик прав... даже в справке по Pascal этот пример приведен ))
Ответ от Капитан Гугл[гуру]
FileExists(имя) - в паскале, дельфи наследует.assign всегда заканчивается успешно, обработчик можно только к reset.
FileExists(имя) - в паскале, дельфи наследует.assign всегда заканчивается успешно, обработчик можно только к reset.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как в Паскале проверить существование файла?!