如何在delphi中实现普通文件的拷贝.txt

来自「delphi 编程技巧」· 文本 代码 · 共 22 行

如何在DELPHI中实现普通文件的拷贝? (2001年5月13日) 

本站更新  分类:文件   作者:tomm  推荐:   阅读次数:320  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

procedure TForm1.btnCopyClick(Sender: TObject);
var
sfile,dfile : String;
begin
sfile :='a.txt';//被copy的文件
dfile :='b.txt';//copy后的文件名
CopyFile(pchar(sfile),pchar(dfile),false);
第三个参数false为如果b.txt已经存在，则覆盖；如果为true,则不进行操作

函数详细信息查阅help文件