如何把一个自定义对象保存到文件然后再从文件装载该对象?

Question

如题!

Answer 1

参照一下TStringList的SaveToFile和LoadFromFile两个方法的实现。。

Answer 2

Delphi有没有向Java或者C#中将一个对象序列化和反序列化的方法啊？

Answer 3

对象序列化：
procedure TForm1.Button1Click(Sender: TObject);
begin
  BinStream.WriteComponent(Button1);  //BinStream: TMemoryStream;：
  Button1.Name := 'NewName';  //因为一个拥有者不能管理多个相同名字的对象
end;反序列化：
procedure TForm1.Button2Click(Sender: TObject);
var
  NewButton: TButton;
begin
  NewButton := TButton.Create(Self);
  BinStream.Seek(0, soFromBeginning);
  NewButton := TButton(BinStream.ReadComponent(NewButton)); //读出对象
  NewButton.Parent := Self;  //在本窗体上显示该对象
  NewButton.Left := 0;
end;
如果要与文件存取，可以调用TMemoryStream.SaveToFile和TMemoryStream.LoadFromFile————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————