如何利用free pascal复制、删除、重命名文件？

来源：百度知道 编辑：UC知道 时间：2024/06/22 04:57:10
如何利用free pascal复制、删除、重命名文件？
需要调用什么库？
最好给出示例程序：
1.把D:\a.txt复制为D:\b.txt
2.把D:\b.txt删除
3.把D:\c.txt重命名为D:\c.txt
3改为：把D:\a.txt重命名为D:\c.txt

1.var str:string;
begin
assign(input,'d:\a.txt'); reset(input);
assign(output,'d:\b.txt'); reset(output);
while not eof(input) do
begin
readln(str);
writeln(str);
end;
close(input);
close(output);
end.

2.var str:string;
begin
assign(input,'d:\b.txt'); reset(input);
close(input);
erase(input); {删除d:\b.txt}
end.

3.var str:string;
begin
assign(input,'d:\a.txt'); reset(input);
assign(output,'d:\c.txt'); reset(output);
while not eof(input) do
begin
readln(str);
writeln(str);
end;
close(input);
erase(input); {删除d:\a.txt}
close(output);
end.

未编译，应该是对的

先找到左上角的小图标，在点一下他，选择“编辑”，单击选定，在框住复制的文字，在点一下小图标，选择“编辑”，单击复制，就可以在Windows下粘贴了！

2楼的程序有