用上面的代码实现文件的copy,小的文件可以,但是大的就不可以

用“文件流”和“内存流”实现大文件的拷贝，具体细节参阅相关书籍。
首先我们用一个“文件流”以只读方式打开原始文件
var
fs:TFileStream;
begin
fs:=TfileStream.create(“文件名称”,fmOpenRead)
……………然后我们创建一个“内存流”
var
ms:TmemoryStream;
begin
ms:=TmemoryStream.create;
……………