如何把多维数组保存到流里病毒出来
成功:
var
i:integer;
num:integer;
a: array of double;
aryStream:TMemoryStream;
pa:Pointer;
begin
num:=100;
setlength(a,num);
setlength(b,num);
for i:=0 to num-1 do
begin
a[i]:=i/100;
end;
aryStream:=TMemoryStream.create();
aryStream.WriteBuffer(num,sizeof(integer));
aryStream.WriteBuffer(a[0],num*sizeof(double)) ;
for i:=1 to num-1 do
begin
a[i]:=0;
end;
setlength(a,num);
num:=0;
pa:=allocmem(100*sizeof(double));
aryStream.Seek(0,soFromBeginning);
aryStream.ReadBuffer(num,sizeof(integer));
aryStream.ReadBuffer(pa^,100*sizeof(double));
a:=pa;
showmessage(inttostr(num));
showmessage(floattostr(a[10]));
end;
一维可以
多维怎末办