用Pascal语言查找某一文件在某一目录中是否存在

2025-04-29 22:54:58

推荐回答（2个）

回答1：

看你到底用什么IDE，一般比如FREEPASCAL、DELPHI这些都会有fileexists函数，当指定文件存在则返回TRUE，否则返回FALSE。如果你的开发环境没有这个函数，可以自己写一个，具体是用WINDOWS SDK中的findfirstfile函数，关于这个SDK函数，你可以查查MSDN 如果你的环境连SDK都不支持，那只能用PASCAL里最原始的方式了，就是textfile类型变量已经assign函数来尝试关联到变量并用追加方式打开，如果出现错误则文件不存在

回答2：

begin
if FileExists('C:\X.Rabbit.txt') = True then
Writeln('文件存在')
else
Writeln('指定路径不存在该文件');
Readln;
end.
这里使用的是API, FileExists(const stirng FilePath);