如何持久化一个TPersistent类

ReinhardCao 2010-02-05 07:14:38

好像只有TComponet比较好保存。

...全文

89 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

亮剑_ 2010-02-06

打赏
举报

回复

[Quote=引用 2 楼 harryfin 的回复:]
持久化只是一个概念，意思就是把数据写进硬盘，下次读出来。没有现成的，自己写个很简单，而且能满足自己特有的需求。
[/Quote]
关键是想要什么样的“持久化”功能
如果想利用VCL的相应机制，从TComponet继承会省事些
如果功能较简单，如只是保存+读出，自己实现也可能考虑

Harryfin 2010-02-06

打赏
举报

回复

持久化只是一个概念，意思就是把数据写进硬盘，下次读出来。没有现成的，自己写个很简单，而且能满足自己特有的需求。

iseekcode 2010-02-05

打赏
举报

回复

TPersistent类只提供了持久化框架，没有真正实现。实现是从TComponet开始的，所以如果想利用Delphi的持久化机制，从TComponet继承最好。

内容索引:Delphi源码,界面编程,TPersistent　　TPersistent 类使用实例，Delphi7无控件直接编译就可以了。创建一个基于TPersistent 类的持久化对象，演示如何创建、清除、载入、储存TPersistent对象，另附一个打开bmp图像的模块。

序列化 (serialization):将对象的状态信息转换为可以存储或传输的形式的过程。与序列化相对的是反序列化，它将流转换为对象。这两个过程结合起来，可以轻松地存储和传输数据。序列化的目的　　1、以某种存储形式使自定义对象持久化；　　2、将对象从一个地方传递到另一个地方。　　3、使程序更具维护性在Delphi中只要从 TPersistent继承后就会有序列化的功能。在TPersistent中的定义 procedure DefineProperties(Filer: TFiler); virtual;

随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。业务层要与表示层尽量解藕，我的方法是：首先我们在中间层TLB_中定义一个接口 IBusinessService, 定义一个方法。getvoList，我要得到一个VO的列表， VO即ValueObject, 例如：TValueObject= class(TPersistent) private b_insertFlag :Boolean; b_updateFlag :Boolean; b_deleteFlag :Boolean; d_rowVersion :double; procedure setInsertFlag(pInsertFlag :Boolean); function getInsertFlag: Boolean; procedure setUpdateFlag(pUpdateFlag :Boolean); function getUpdateFlag: Boolean; procedure setDeleteFlag(pDeleteFlag :Boolean); function getDeleteFlag: Boolean; procedure setRowVersion(pRowVersion :double); function getRowVersion:double; protected function GetOLEData: OleVariant; virtual; procedure SetOLEData(const Value: OleVariant); virtual; published property bInsertFlag: Boolean read getInsertFlag write setInsertFlag; property bUpdateFlag: Boolean read getUpdateFlag write setUpdateFlag; property bDeleteFlag: Boolean read getDeleteFlag write setDeleteFlag; property dRowVersion: double read getRowVersion write setRowVersion; property POLEData:OleVariant read GetOLEData write SetOLEData; end;TUserVO = class(TValueObject) private id: string; name: string; password: string; 。。。。。。。。。。 VO的列表：TValueObjectList = Class(TObjectList) private ValueObject: TValueObject; ClassName: TClass; procedure setClassName(pTmpClsName :TClass); function getClassName: TClass; procedure setValueObject(pTmpVO :TValueObject); function getValueObject: TValueObject; protected function GetOLEData: OleVariant; virtual; procedure SetOLEData(const Value: OleVariant); virtual; published function AddItem(index: integer; AObject: TObject ):Integer; virtual; function GetItem(index, itemid: integer ): TObject; virtual; function CountItem:Integer; virtual; public constructor Create; virtual; destructor Destroy; override; procedure AfterConstruction; override; property PClassName: TClass read getClassName write setClassName; property POLEData: Ole

delphi持久类TPersistent派生的组件TComponent的序列化和反序列化一、概念：组件的序列化和反序列化组件的序列化 (serialization)：将组件对象的状态信息转换为可以存储或传输的形式的过程。与组件序列化相对的是组件反序列化：它将流转换为对象。这两个过程结合起来，可以轻松地存储和传输数据。序列化的目的：　　1、以某种存储形式使自定义对象持久化；　　2...

原文：http://blog.csdn.net/lailai186/article/details/7435473 TPersistent类 TPersistent类是由TObject直接派生的。凡是由TPersistent派生的对象都能够进行流操作。因为所有的组件都是由TPersistent派生的，所以它们都具有流属性。TPersistent没有定义特殊的属性或事件，虽然它定义了...

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章