各位大大，小弟有個問題想請教，就是從檔案內容看檔案大小時，明明寫大小 34.0 KB (34,820 位元組)，為甚麼從ULTRAEDIT看卻有位置標示居然有34855的大小，小弟不才就用下列方式將A檔案讀出再寫入B檔案，居然後面最後面還是有不一樣，請教這是哪邊出問題？      assignfile(Afile,fAname);   Reset(Afile,1);   assignfile(Bfile,fBname);   Rewrite(Bfile,1);   while Not Eof(Afile) do   Begin    Blockread(afile, a, 1);    BlockWrite(Bfile, a, sizeof(a) );   End;   Closefile(bfile);   Closefile(afile);    A檔案： http://home.pchome.com.tw/cool/kamichen/A.BMD PS:PCHOME在檔案最前面有加了一些東西，所以檔案大小變了

這只是bytes換算 K bytes後的問題而已吧！ 34820/1024 = 34.00390625 K 取到小數點後一位成為34.0 K

感謝，可是好像不是這樣也

天才，您的指令下錯了，我用delphi的範例改成下列程式，copy出 來的檔案和原來的一模一樣，最後面沒有多東東，另外您沒有移動 檔案指標，用Eof(Afile)會跑不完，成為無窮迴圈喔！  

var
  Afile, Bfile:File;
  a:array[1..2048] of Char;
  NumRead, NumWritten:Integer;
  fAname, fBname:String;
begin
  fAname:='c:\A.BMD';
  fBname:='c:\B.BMD';      assignfile(Afile, fAname);
  Reset(Afile, 1);      assignfile(Bfile, fBname);
  Rewrite(Bfile, 1);
  repeat
    Blockread(afile, a, SizeOf(a), NumRead);
    BlockWrite(Bfile, a, NumRead, NumWritten);
  until (NumRead=0)or(NumWritten<>NumRead);      Closefile(bfile);
  Closefile(afile);
 

感謝tonytop大大，另外一個問題就是我把a變數宣告成BYTE後寫到B檔案就會發生我說的問題，但是a變數宣告成char就沒這樣的問題 可以在幫我嗎？感恩喔

我剛試把a變數宣告成BYTE後寫到B檔案，用ULTRAEDIT的「比較檔案」功能， 得到的結果還是一模一樣耶，是否你有部份作法造成不同呢？    

 
procedure TForm1.Button2Click(Sender: TObject);
var
  Afile, Bfile:File;
  a:array[1..2048] of Byte; //////  
  NumRead, NumWritten:Integer;
  fAname, fBname:String;
begin
  fAname:='c:\A.BMD';
  fBname:='c:\B.BMD';      assignfile(Afile, fAname);
  Reset(Afile, 1);      assignfile(Bfile, fBname);
  Rewrite(Bfile, 1);
  repeat
    Blockread(afile, a, SizeOf(a), NumRead);
    BlockWrite(Bfile, a, NumRead, NumWritten);
  until (NumRead=0)or(NumWritten<>NumRead);      Closefile(bfile);
  Closefile(afile);
end;

我正確的mail：h832214@hotmail.com

tonytop 大大，我把我的程式寄給你，你試試看