知识大全 开发Delphi对象式数据管理功能(四)[1]

Posted

篇首语:我不知道离别的滋味是这样凄凉,我不知道说声再见要这么坚强。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 开发Delphi对象式数据管理功能(四)[1]相关的知识,希望对你有一定的参考价值。

DELPHI基础教程:开发Delphi对象式数据管理功能(四)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

   TReader对象

  TReader对象是可实例化的用于从相联系的流中读取数据的Filer对象 TReader对象从TFiler继承下来 除了从TFiler继承的属性和方法外 TReader声明了不少属性 方法和事件

  Owner和Parent属性用于表示从Reader对象的流中读取的部件的拥有者和双亲结点 OnError OnFindMethod和OnSetName事件使应用程序在运行中读数据时能定制响应方式 除了覆蓋了一些从TFiler对象中继承的方法外 TReader对象还定义大量的读不同类型的数据和触发事件的方法

   TReader对象的属性和方法

   Owner属性

  声明

property Owner: TComponent;

  Reader对象的Owner属性存储了将用来给从Reader的流中读出的部件的Owner属性赋值的部件

   Parent属性

  声明

property Parent: TComponent;

  Parent属性存储将用来给从Reader的流中读出所有控制的Parent属性赋值的部件

   Position属性

  声明

propertion: Longint;

  Reader对象的Position属性表示相联的流中读的当前位置 Position的值还应包括读缓冲区的大小 对于Reader 对象 Position的值大于流的Position 的值 如果将Position的值设得超过当前缓冲区 将引起调用FlushBuffer

   BeginReferences方法

  声明

procedure BeginReferences;

  BeginReferences方法启动一连串关于读部件的命令 这些部件包含相互间的交叉引用 在使用上通常和FixupReferences和EndReferences一起放在Try…finally程序块中

  在调用了BeginReferences后 Reader对象创建读取所有对象和名字的列表 所有的独立对象被读出后 调用FixupReferences方法将名字的相互从流中转移到对象实例中 最后调用EndReferences方法释放列表

  处理部件相互引用的程序块形式如下

  BeginReferences; 创建临时列表

  try

   读出所有部件并将它们的名字放在一临时列表中

  …

  FixupReferences; 分 解

  finally

  EndReferences; 释放临时列表

  end;

   FixUpReferences方法

  声明

procedure FixupReferences;

  FixupReferences方法分解从流中读出的存在各种相互依赖部件的引用关系 FixupReferences总在try…finally块中并配合BeginReferences和EndReferences一起使用

   EndReferences方法

  声明

procedure EndReferences;

  EndReferences方法终止处理相互引用的块操作 释放对象列表 它总配合BeginReferences和FixupReferences一起使用

   ReadListBegin方法

  声明

procedure ReadListBegin;

  ReadListBegin方法从Reader对象相联的流中读取列表开始标志 如果流中紧接着要读取的项目不是一个由WritelistBegin方法写入的列表起始标志 ReadListBegin将引起一个读异常事件

  通常在调用ReadlistBegin方法之后 紧跟着一个读项目的循环 循环以EndfList方法返回True 终止条件 这时 预示流中的下一个项目是列表结束标志 需要调用ReadListEnd方法

   ReadListEnd方法

  声明

procedure ReadListEnd;

  ReadListEnd 方法从流中读取列表结束标志 如果所读的项目不是一个列表结束标志 ReadListEnd方法引发一个EReadError异常事件

   EndOfList方法

  声明

function EndOfList: Boolean;

  如果Reader对象读到项目列表结果标志 EndOfList方法返回True

  TStrings对象在从Reader对象读取项目列表时使用了ReadListBegin和ReadListEnd方法 下面的ReadData是TStrings的方法 用于在DefineProperties方面中读string数据

  procedure TStrings ReadData(Reader: TReader)

  begin

  Reader ReadListBegin; 读列表开始标志

  Clear; 清除已有的字符串

  while not Reader EndOfList do 只要还有数据 …

  Add(Reader ReadString) …读一个字符串并将其加在列表中

  Reader ReadListEnd; 越过列表结束标志

  end;

   ReadSignature方法

  声明

procedure ReadSignature;

  ReadSignature方法从流中读取部件之前首先调用ReadSignature方法 在载入对象之前检测标签 Reader对象就能防止疏忽大意 导致读取无效或过时的数据 Filer标签是四个字符 对于Delphi 该标签是 TPF

   ReadPrefix方法

  声明

procedure ReadPrefix(var Plags: TFilerFlags; var AChild Pos: Integer)

  ReadPrefix方法的功能与ReadSignature的很相象 只不过它是读取流中部件前面的标志(PreFix) 当一个Write对象将部件写入流中时 它在部件前面预写了两个值 第一个值是指明部件是否是从祖先窗体中继承的窗体和它在窗体中的位置是否重要的标志 第二个值指明它在祖先窗体创建次序 ReadComponent方法自动调用ReadPrefix 但如果需要独立读取部件的预读标志 也可直接调用该方向

   OnFindMethod事件

  声明

property OnFindMethod: TFindMethodEvent;

  OnFindMethod事件 发生在Reader对象读取对象的方法指针时 属性为方法指针的通常都是事件

  响应OnFindMethod事件的理由 通常是处理过程找不到方法的情况 在FindMethod方法没有找到由Name指定的方法的情况下 如果它将OnFindMethod方法的Error 参数设为True 将引起ReadError异常事件 反之 将Error参数置为False 将防止FindMethod方法引发异常事件

   Error方法

  声明

function Error(const Message: String) Boolean; virtual;

  Error方法定义在Reader对象的protected部分 它是用于Reader对象的OnError事件 其返回值决定是否继续错误处理过程 如果返回值为True 则表示用程序应当继续错误处理 如果返回值为False 则表示错误情况被忽略

  如果读部件或属性出错 Reader对象调用Error方法 缺省情况下 Error将返回值设为False 然后调用OnError事件处理过程

  TReader对象总是在try…except程序块的except部分 并提供用户忽略错误的机会 Error的使用方法如下

  try

  … 读部件

  except

  on E: Exception do

  begin

  … 执行一些清除操作

  if Error(E Message) then raise;

  end;

  end;

   OnError事件

  声明

property OnError: TReaderError;

  当Reader对象读取数据出错时将引发OnError事件 通过处理OnError事件 可以有选择地处理或忽略错误

  传给OnError事件处理过程的最后一个参数是名为Handled的var参数 在缺省情况下 Error方法将Handled置为True 这将阻止错误更进一步处理 如果事件处理过程仍旧将Handled置为False Reader对象将引发一个EReadError异常事件

   SetName方法

  声明

procedure SetName(Component: TComponent; var Name: String virtual)

  SetName方法允许Reader对象在将从流中读取的部件的Name值赋给部件的Name属性前修改Name值 ReadComponent方法在读取部件的属性值和其它数据前先读部件的类型和名字在读完名字后 ReadComponent将所读的名字作为Name参数传给SetName Name 是个var参数 因此SetName能在返回前修改字符串值 SetName还调用了OnSetName事件处理过程 将名字字符串作为var参数传入事件处理过程中 因此 事件处理过程也可修改字符串的值

cha138/Article/program/Delphi/201311/25092

相关参考

知识大全 开发Delphi对象式数据管理功能(四)[3]

DELPHI基础教程:开发Delphi对象式数据管理功能(四)[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(四)[2]

DELPHI基础教程:开发Delphi对象式数据管理功能(四)[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(一)[1]

DELPHI基础教程:开发Delphi对象式数据管理功能(一)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(二)[1]

DELPHI基础教程:开发Delphi对象式数据管理功能(二)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(三)[1]

DELPHI基础教程:开发Delphi对象式数据管理功能(三)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(五)[1]

DELPHI基础教程:开发Delphi对象式数据管理功能(五)[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(一)[3]

DELPHI基础教程:开发Delphi对象式数据管理功能(一)[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(二)[4]

DELPHI基础教程:开发Delphi对象式数据管理功能(二)[4]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(一)[5]

DELPHI基础教程:开发Delphi对象式数据管理功能(一)[5]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快

知识大全 开发Delphi对象式数据管理功能(一)[4]

DELPHI基础教程:开发Delphi对象式数据管理功能(一)[4]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快