动态数组和流的问题

Question

我想将文件读到流中
在放入动态数组中
我试了下静态的数组是可以的
代码如下procedure TForm1.Button1Click(Sender: TObject);
var sss : array of char;
    TempStream : TMemoryStream;
begin
  TempStream := TMemoryStream.Create();
  TempStream.LoadFromFile('c:\11.txt');
  richedit1.Lines.LoadFromStream(TempStream);
  FillChar(sss, 400, 0);
  TempStream.Seek(0,soFromBeginning);
  TempStream.read(sss,TempStream.Size);
  TempStream.Free;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var sss : array of byte;
    TempStream : TMemoryStream;
begin
  TempStream := TMemoryStream.Create();
  TempStream.LoadFromFile('c:\11.txt');
  richedit1.Lines.LoadFromStream(TempStream);
  SetLength(sss, TempStream.Size);
  TempStream.Seek(0,soFromBeginning);
  TempStream.read(sss,TempStream.Size);
  TempStream.Free;
end;

Answer 2

sorry:这一句应该这样
TempStream.read(sss[0],TempStream.Size);

Answer 3

一般是要用 SetLength 而不是 FillChar 的, 其它, 好象沒什麼