流的读方法，怎么不能把数据读到动态数组里（代码见内）？？？急急急

[lastshrill]

procedure UncompressMulti_Info(aData: TStream);
var
Buf: array[0..1] of Byte;
BufAryInfo: array of Char;
BufInfo:string;
i:integer;
begin
aData.Seek(0, soFromBeginning);
aData.Read(Buf, 2);
i:= Buf[0] * 255 + Buf[1];
SetLength(BufInfo, i - 2);
SetLength(BufAryInfo, i - 2);
aData.Seek(2, soFromBeginning);
aData.Read(BufAryInfo, (i- 2) * sizeof(Char));
for i:=0 to i- 3 do
BufInfo[i+1] := BufAryInfo[i]; //这里不对
end;

[bubble]

学习

[riseifuku]

look

[sillyou]

BufInfo := StrPas(BufAryInfo + #0);

[cobi]

关注

[DeityFox]

gz

[hellion]

aData.Read(BufAryInfo, (i- 2) * sizeof(Char));
改为
aData.Read(@BufAryInfo[0], (i- 2) * sizeof(Char));
试试

[lastshrill]

to : hellion(恶人)
改了后，编译提示：Constant Object cannot be passed as var parameter

[lastshrill]

aData.Read(BufAryInfo, (i- 2) * sizeof(Char));//这里I就变了

[Kingron]

应该是Read(BufAryInfo[0],(i-2)*.....);
如果还不行，就改成Read(BufAryInfo[0]^,(i-2)*.....);

[lwm8246]

动态数组没用过但读到字符串可以.
function CopyStreamToString(const Stream:TStream):string;
begin
SetLength(Result,Stream.Size);
Stream.Read(Result[1],Stream.Size);
end;

[lastshrill]

to Kingron(戒网中……)　:
Read(BufAryInfo[0],(i-2)*.....);
是对的

to lwm8246(lwm8246):
您说的方法我用过，是可行的
谢谢大家

[dy_kiss]

有谁知道应该怎么把动态数组释放？？？？