怎样将一个TList存为二进制文件

[dmyb7233]

在一个Tlist类中放了一个动态数组，我用Tfilestream将它存为二进制的磁盘文件为什么老是存不上???

[windindance]

你是怎么存的?

[kuchong]

TLIST类要存盘,得自己实现,FILESTREAM没办法的

[Hillside]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
begin
...
with TFileStream.Create('C:\MyList.dat',fmCreate) do try
with MyList do for i:=0 to pred(Count) do begin
j:=Integer(Items[i]);
Write(j,Sizeof(Integer));
end;
finally
Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:Integer;
begin
...
with TFileStream.Create('C:\MyList.dat',fmOpenRead) do try
repeat
i:=Read(j,Sizeof(Integer));
l.Add(Pointer(j));
until i=0;
finally
Free;
end;
end;

[microrain]

楼上的，你写的读的那部分不好用呀，你再帮看一看行吗