怎么把 VarArray 的东西存到一个文件中？

[馋嘴蜗牛]

我 VarArrayCreate 了一个 VarArray，想把这个东西存到一个文件中，怎么做呢？听说先转成 Stream 就可以存了，可我不知道怎么转成 Stream。我的 VarArray 里都是 OleVariant 类型的数据。

[馋嘴蜗牛]

TClientDataNode = class
public
TableName : String;
ClientDataSet : TClientDataSet;
end;

我做了一个 TClientDataNode 的TList列表，我想把这个存起来。
VarArrayCreate([0, (Count * 2 - 1)], VarVariant);
一个 Node 占两个，第一个存 TableName，第二个存 ClientDataSet.Data
怎么做呢？
我要把这个东西存到一个文件中

[black_fox]

给你一段hubdog的代码。。。
function FileToVariant(FileName: String): OleVariant;
var
AStream: TFileStream;
MyBuffer: Pointer;
begin
AStream:=TFileStream.create(FileName,fmOpenRead);
try
aStream.Seek(0, soFromBeginning);
Result:=VarArraycreate([0, AStream.size-1], VarByte);
MyBuffer:=VarArrayLock(Result);
AStream.ReadBuffer(MyBuffer^, AStream.Size);
VarArrayUnlock(Result);
finally
AStream.Free;
end;
end;


procedure VariantToFile(FileName: String; var AVariant: OleVariant);
var
AStream: TFileStream;
MyBuffer: Pointer;
Size: Integer;
begin
AStream:=TFileStream.create(FileName,fmCreate);
try
aStream.Seek(0, soFromBeginning);
Size:=VarArrayHighBound(AVariant,1)+VarArrayLowBound(AVariant,1)+1;
MyBuffer:=VarArrayLock(AVariant);
AStream.WriteBuffer(MyBuffer^, Size);
VarArrayUnlock(AVariant);
finally
AStream.Free;
end;
end;

[netlib]

你要知道你存放内容的大小，

var
F:TfileStream;
i: integer;
begin
F:=TfileStream.Create(...;
For i:= 0 to vararraycount-1 do
F.write(Vararray[i],Size)//这里的大小你要填进去
F.free;
end;

[短歌如风]

OleVariant的数组?
它可能不是线性的,因为每个元素又可能是数组,你总要有个转换规则吧.

[踢踏]

关注

[馋嘴蜗牛]

black_fox(black_fox)说的可以把VarArray的东西存进去，但是我的 VarArray的每一个元素都是OleVariant类型的。我看存进去的好像都是地址，每个元素都没存进去