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

[eastzsp]

原帖地址：
http://topic.csdn.net/t/20040421/11/2991208.html

halfdream（哈欠）大侠的答案。我改动了下，加了填充的内容，但是写到文件中的数值是乱码。
我怀疑是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;

[gyk120]

FileStream.Read(Buffer[0],FILEStream.Size);
ShowMessage(pchar(Buffer));

[preserve]

n:=fo.Write(buf,2000);

中的buf改为buf[0]

动态数组buf其实只是保存了buf[0]的起始地址 所以sizeof(buf)的大小就是指针的大小4

[qkhhxkj102]

学习

[fhfanxin]

结贴吧

如果还有剩余的分数，那我也不介意接一点，嘻嘻

[huhuc]

楼上说的很好了,
Arr[0] PChar(Arr)^都可以,Delphi动态和静态实现是不同的