关于Free Pascal 文件操作的问题

2025-04-29 06:43:16

推荐回答（3个）

回答1：

如何判断一个文件是否存在:
function checkfile(st:string):boolean;
var f:text;
begin
Assign(F,st);
{$I-}
Reset(F);
Close(F);
{$I+}
if IOResult=0 then checkfile:=true
else checkfile:=false;
end;
致命错误:221 无效的变体操作

回答2：

1、判读一个文件是否存在，可以在PASCAL 的安装文件加上找，有就有，没有就自己建一个
2、221是无效变体错，可以查查变量定义

回答3：

http://baike.baidu.com/view/26358.htm
在这里可以学点