Delphi实现类的持久化保存,DFM格式
var inStream,outStream:TMemoryStream; begin inStream:=TMemoryStream.Create; outStream:=TMemoryStream.Create; try inStream.WriteComponent(self); inStream.Position:=0; ObjectBinaryToText(inStream,outStream); outStream.Position:=0; outStream.SaveToFile('c.txt'); finally FreeAndNil(inStream); FreeAndNil(outStream); end; //WriteComponentResFile('c.res',self); end;
读取,反过来就是了,不多说。
- 上一篇 »java实现的类和表持久化
- 下一篇 »JAVA / MySql 编程——第八章 DAO 模式