pascal式文件复制：
var
f,ff:file;
NumRead, NumWritten: Word;
buf: array[1..8192] of byte;
begin
assign(f,'a.jpg');
Reset(F, 1);
assign(ff,'b.jpg');
Rewrite(ff, 1);
repeat
BlockRead(F,buf,SizeOf(buf),NumRead);
blockWrite(ff,buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CLOSE(FF);
Close(F);
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024