delphi 对象序列化保存到文件中

首先，要确保你对象的成员写在published下。 代码如下：
//TmyClass定义
Type
  TMyClass=Class(TComponent)
  private
    Fage: Integer;
    Faddress: String;
    FName: String;
  published
    property Name:String Read FName Write FName;
    property age:Integer Read Fage Write Fage;
    property address:String Read Faddress Write Faddress;
  end;
//保存
procedure TForm4.Button1Click(Sender: TObject);
var
  my: TMyClass;
  fs: TFileStream;
begin
  my := TMyClass.Create(self);
  my.name := 'rocky';
  my.age := 20;
  my.address := 'hangzhou';
  fs := TFileStream.Create('c:\test.txt', fmCreate);
  fs.WriteComponentRes(my.ClassName,my);
  fs.free();
end;
//读取
procedure TForm4.Button2Click(Sender: TObject);
var
  my1: TMyClass;
  ts: TStream;
begin
   my1:=TMyClass.Create(self);//你少了这句...
    ts:= TFileStream.Create('c:\test.txt',fmOpenRead);
    ts.ReadComponentRes(my1);
  try
     showmessageFmt('名字：%s 年龄:%d 地址：%s',[my1.name,my1.age,my1.address]);
  finally
     ts.Free();
  end;
end;

转载于:https://www.cnblogs.com/lzj1981/archive/2013/04/28/3049012.html