遇到一个动态数组的问题，找到04年的一个答案，但是测试有问题。

原帖地址：
http://topic.csdn.net/t/20040421/11/2991208.htmlhalfdream（哈欠）大侠的答案。我改动了下，加了填充的内容，但是写到文件中的数值是乱码。
我怀疑是TFileStream不支持动态数组。procedure   TForm1.Button1Click(Sender:   TObject);   
  var
      buf:array   of   byte;
      fo:TFileStream;
      n:integer;
  begin
      setlength(buf,2000);
      for n := 0 to 1999 do
        buf[n]:=n;
      fo:=TFileStream.Create('d:\a.txt',fmCreate);
      n:=fo.Write(buf,2000);
      fo.Free;
      ShowMessage(intToStr(n));
  end;