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;

解决方案 »

  1.   

    CopyFile(const FromFileName,ToFileName:String):Boolean;复制文件的函数,返回值是复制成功与否。FromFileName,ToFileName:String是源文件名和目标文件名。
    前面加const是指在函数体内这两个参数为常量,不可修改。还有什么问题吗?
      

  2.   


    將 FromFileName 對應的文件名, 復製到 ToFileName 對應的這個文件名!!!
      

  3.   

    那问一下,TFileStream 是什么类型的窗体?
      

  4.   

    老大,TFileStream是文件流类型,可以用它来将文件读出来,或者创建文件、又或者写入文件等等,你上面的那个函数是将FromFileName文件读入FromFile文件流,然后通过ToFile文件流创建ToFileName文件,最后将FromFile复制到ToFile,就实现了文件的复制功能。