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

Question

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

Answer 1

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;