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

来源:百度知道 编辑:UC知道 时间:2024/06/30 14:51:00
pascal可以新建文件,怎么删除啊?

你说的是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.