lbMesg.Caption := '';
if edtSFile.Text <> '' then
begin
AssignFile(FormF,edtSFile.Text);
Reset(FormF,1);
if edtTFile.Text <> '' then
begin
AssignFile(ToF,edtTFile.Text);
ReWrite(ToF,1);
lbMesg.Caption := lbMesg.Caption + IntToStr(FileSize(FormF)) + 'bytes已经拷贝完成!';
repeat
BlockRead(FormF,Buf,SizeOf(BUf),NumRead);
BlockWrite(ToF,Buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FormF);
CloseFile(ToF);
ShowMessage('文件复制完成!');
end else ShowMessage('源文件有问题!!');
end else ShowMessage('目标文件有问题!!');
end;
在上面代码中Reset(FormF,1);和ReWrite(ToF,1);中的第二个参数1是代表什么意思以前我用这Reset和ReWrite都是只有一个参数的.
if edtSFile.Text <> '' then
begin
AssignFile(FormF,edtSFile.Text);
Reset(FormF,1);
if edtTFile.Text <> '' then
begin
AssignFile(ToF,edtTFile.Text);
ReWrite(ToF,1);
lbMesg.Caption := lbMesg.Caption + IntToStr(FileSize(FormF)) + 'bytes已经拷贝完成!';
repeat
BlockRead(FormF,Buf,SizeOf(BUf),NumRead);
BlockWrite(ToF,Buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FormF);
CloseFile(ToF);
ShowMessage('文件复制完成!');
end else ShowMessage('源文件有问题!!');
end else ShowMessage('目标文件有问题!!');
end;
在上面代码中Reset(FormF,1);和ReWrite(ToF,1);中的第二个参数1是代表什么意思以前我用这Reset和ReWrite都是只有一个参数的.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货