有4个3维动态数组需要存文件,我用blockwrite/blockread,以及steam的方式好像都不行,怎么办呢? ( 积分: 100 )

同上问题,我在以前人的问题中找到的blockread/blockwrite,以及steam存储方法我都试过了,好像无法实现,希望高手指点一下,谢谢!@$

同上问题,我在以前人的问题中找到的blockread/blockwrite,以及steam存储方法我都试过了,好像无法实现,希望高手指点一下,谢谢!@$

var
log:TFileStream;
a,b,c :array of char;
begin
setLength(a,1024);
log :=TFileStream.Create('log.txt',fmCreate);
log.write(a,sizeof(a));//如此便可写入文件了，不需要太麻烦
a :=nil;
end;

这种方法写是写了,我现在读不出来啊,读出来是空的?
还望赐教读出时候的方法?

var
log:TFileStream;
a,b,c :array of char;
begin
setLength(a,1024);
FillChar(a,1024,'A');
SetLength(b,2048);
FillChar(b,2048,'B');
SetLength(c,128);
FillChar(c,128,'C');
log :=TFileStream.Create('log.txt',fmCreate);
log.write(a,sizeof(a));//如此便可写入文件了，不需要太麻烦
log.Write(b,sizeof(b));
log.Write(c,sizeof(c));
a :=nil;
b :=nil;
c :=nil;
end

//读
var
log:TFileStream;
a,b,c :array of char;
begin
setLength(a,1024);
SetLength(b,2048);
SetLength(c,128);
log :=TFileStream.Create('log.txt',fmOpenRead);
log.Read(a,sizeof(a));
log.Read(b,sizeof(b));
log.Read(c,sizeof(c));
a :=nil;
b :=nil;
c :=nil;
end;