delphi 文件删除,复制

这是个相对简单的方法,不知道能不能帮到你
删除:
procedure TForm1.Button1Click(Sender: TObject);
begin
deletefile('c:123.txt');
end;
复制:
procedure TForm1.Button1Click(Sender: TObject);
begin
copyfile('c:123.txt','d:123.txt',false); //第一个参数是你要复制的文件,第二个是复制到哪
// 个目录下,false是 如果存在,则覆盖
end;

剪切的话,可以把两段代码合并,先复制、再删除
原文地址:https://www.cnblogs.com/zhangzhifeng/p/6202866.html