Question

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

如何利用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

Answer 1

2楼的程序有问题，在于如果一行多于256个字符则会出错。
如这样的文件：
从这里开始
01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
到这里结束
procedure copyfile(p1,p2:string);
var
f1,f2:file of byte;
n:byte;
begin
assign(f1,p1); reset(f1);
assign(f2,p2); rewrite(f2);
while not eof(f1) do begin
read(f1,n);write(f2,n);
end;
close(f1); close(f2);
end;
procedure delfile(p:string);
var f:file of byte;
begin
assign(f,p); erase(f);
end;
procedure movefile(p1,p2:string);
begin
copyfile(p1,p2); delfile(p1);
end;
begin
copyfile('D:\a.txt','D:\b.txt');
delfile ('D:\b.txt');
movefile('D:\a.txt','D:\c.txt');
end.

Answer 2

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.

未编译，应该是对的

Answer 3

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