Function TCU2_Form.CopyFile(const FromFileName,ToFileName:String):Boolean;
var FromFile,ToFile:TFileStream;
begin
Result:=True;
Try
FromFile:=TFileStream.Create(FromFileName,fmOpenRead);
Try
ToFile:=TFileStream.Create(ToFileName,fmOpenWrite or fmCreate);
Try
ToFile.CopyFrom(FromFile,FromFile.Size);
Finally
ToFile.Free;
end;
Finally
FromFile.Free;
end;
Except
Result:=False;
end;
end;
var FromFile,ToFile:TFileStream;
begin
Result:=True;
Try
FromFile:=TFileStream.Create(FromFileName,fmOpenRead);
Try
ToFile:=TFileStream.Create(ToFileName,fmOpenWrite or fmCreate);
Try
ToFile.CopyFrom(FromFile,FromFile.Size);
Finally
ToFile.Free;
end;
Finally
FromFile.Free;
end;
Except
Result:=False;
end;
end;
前面加const是指在函数体内这两个参数为常量,不可修改。还有什么问题吗?
將 FromFileName 對應的文件名, 復製到 ToFileName 對應的這個文件名!!!