Question

pascal下怎么删除文件和文件夹?

pascal可以新建文件,怎么删除啊?

Answer 1

你说的是TURBO PASCAL吗？不同的系统这类过程和函数的名称可能不一样，因为这些不属于标准PASCAL的内容。

在TURBO PASCAL里面删除文件夹的过程是：
procedure RmDir(S: String);

在TURBO PASCAL里面删除文件夹之前要先删除里面的文件，删除文件的过程是：
procedure Erase(var F);

删除文件的例子代码：
var
F: file;
Ch: Char;
begin
{ Get file to delete from command line }
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then
Writeln('Cannot find ', ParamStr(1))
else
begin
Close(F);
Write('Erase ', ParamStr(1), '? ');
Readln(Ch);
if UpCase(CH) = 'Y' then
Erase(F);
end;
end.