我利用下面的這段代碼讀取檔案，雖然是用Buf接資料，但隨即轉給Result，應該沒有長度的問題，但發現，讀取的資料比原本的資料還多，請問，Buf的長度有關係嗎，謝謝！

[code delphi]
function myreader(filename:string):string;
var karf:file;
Buf:array[1..1024] of Char;
NumRead:integer;
begin
if not fileexists(fn) then abort;
AssignFile(karf,fn);
Reset(karf,1);
repeat
BlockRead(karF,Buf,SizeOf(Buf),NumRead);
if NumRead>0 then result:=result strtohex(buf);
until NumRead=0;
end;
[/code]

還是找不出問題，怕是觀念上的問題，用另一個方式達到目的，貼出來分享。

[code delphi]
function myreader(fn:string):string;
var fs:TStream;
buff:array [0..65535] of Byte;
tt:integer;
begin
fs:=TFileStream.Create(fn,fmOpenRead);
try
while fs.Position fs.Read(buff,SizeOf(buff));
for tt:=0 to fs.Size-1 do
result:=result bytetohex(buff[tt]);
finally
fs.Free;
end;
end;
[/code]

会有问题的。因为buf是char 类型，该类型是以\0表示一个字符串的结束。
如果重用时，记得要先清零再用。如：memset(buf,0x00,sizeof(buf));即可。
问题产生的原因：
假设：第1次：buf读入123456，则buf中存放：[1,2,3,4,5,6,\0,\0...]
第2次，buf读入ABC，因为没清零，则会存放：[A,B,C,4,5,6,\0,\0...]。
所以在第2次读入之前，清零即可。