var filename:string;//目标文件名 source,target: TFileStream; begin source:=TFileStream.Create('c:\lan.dbf',fmOpenRead );//源文件 ---------- 名,可含路径, try target:=TFileStream.Create(filename,fmOpenWrite or fmCreate); try if target.CopyFrom(source,source.Size)=source.Size then ShowMessage('文件成功复制!!!'); finally target.Free; end; finally source.Free; end;
filename:string;//目标文件名
source,target: TFileStream;
begin
source:=TFileStream.Create('c:\lan.dbf',fmOpenRead );//源文件
---------- 名,可含路径,
try
target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
ShowMessage('文件成功复制!!!');
finally
target.Free;
end;
finally
source.Free;
end;