复制文件的一种方法 (2001年3月31日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 30 行

复制文件的一种方法 (2001年3月31日) 

网友更新  分类:文件系统   作者: crazycock(推荐)  推荐:crazycock   阅读次数:356  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
//复制文件
Function TInputForm.CopyFile(sourcefile:string;targetfile:string):boolean;
var
s,t:Tfilestream;
begin
CopyFile:=True;
s:=Tfilestream.Create(sourcefile,fmopenread);
try
Try
t:=Tfilestream.Create(Targetfile,fmopenwrite or fmcreate);
try
t.CopyFrom(s,s.size);
finally
t.free;
end;
finally
s.free;
end;
except
CopyFile:=False;
end;
end;