請問當我去 Creat 一個 TFileStream 的實體後，要去 ReadBuffer 時為何第 一個參數無法使用動態陣列只能用靜態陣列，或有無其它解決的方法。謝謝。

------
我也在努力學習中，若有錯謬請見諒。

試試

procedure TForm1.Button1Click(Sender: TObject);
var
FS : TFileStream;
Buf : Array [0..15] of Char;
Stream : Array of Char;
Read, i : Integer;
begin
  FS := TFileStream.Create('D:\Temp\beta.txt',fmOpenRead);
  repeat
    read := FS.Read(Buf,16);
    SetLength(Stream,Length(Stream)   Read);
    for i := 0 to read - 1 do
      Stream[Length(Stream) - Read   i] := Buf[i];
  until read < 16;
  showmessage(String(Stream));
end;

Buf:array of Byte; begin SetLength(Buf, range); Source := TFileStream.Create(MyPath,fmShareDenyWrite); Source.ReadBuffer(Buf,range); ---------------------------------------------------------- 為何如此會出現 ReadError？ 因為無法確定當下的Buffer大小所以才會用動態的方式，謝謝。

------
我也在努力學習中，若有錯謬請見諒。

這個我也不能很清楚的解釋，但動態設定的 Array 若傳入 Var 的參數經常會變得不隱定，我自已也還攪不清楚為甚麼會這樣，望高手加入指教。 不過，我上便的程式就是專為不清楚 Buffer Size 而設。 靜態陣列的 Buf 每次只讀取最多 16 bytes 且記下實質讀了幾多 bytes, 然後按讀了多少 Byte 來動態的加大 動態陣列的 Stream 並將資料轉移過去。若讀滿 16 Byte 則繼續讀取及轉移，直至讀取的少於 16 byte 即檔案結束為止。 所以這個程序無論是 1 byte 的或是 1 G 的檔案都能讀入 Stream 並設對 Length, 不過對大檔案不是很有效率就是了。若是檔案通常較大，最好加大 Buf。

Justmade, 我測試過了，真的太帥了，謝謝。

------
我也在努力學習中，若有錯謬請見諒。