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;