第二十章-开发Delphi对象式数据管理功能（三）（3）

第二十章-开发Delphi对象式数据管理功能（三）（3）2007-05-0720.2.2.1 TWriter对象的属性和方法

      1. Position属性
      声明：property Position: Longint;
      TWriter对象的Position属性表示相关联的流中的当前要写的位置，TReader
      对象也有这个属性，但与TReader对象不同的是TWriter对象的Position的值比流的Position值小，这一点一看属性实现就清楚了。
      2. RootAncesstor属性
      声明：property RootAncestor: TComponent;
      RootAncestor属性表示的是Root属性所指的部件的祖先。如果Root
      是继承的窗体，Writer对象将窗体拥有部件与祖先窗体中的相应部件依次比较，然后只写入那些与祖先中的不同的部件。
      3. Write方法
      声明：procedure Write（const Buf; Count: Longint）;
      Write方法从Buf中往与Writer相关联的流中写入Count个字节。
      4. WriteListBegin方法
      声明：procedure WriteListBegin;
      WriteListBegin方法往Write对象的流中写入项目列表开始标志，该标志意味着后面存储有一连串的项目。Reader对象，在读这一连串项目时先调用ReadListBegin方法读取该标志位，然后用EndOfList判断是否列表结束，并用循环语句读取项目。在调用WriteListBegin方法的后面必须调用WriteListEnd方法写列表结束标志，相应的在Reader对象中有ReadListEnd方法读取该结束标志。
      5. WriteListEnd方法
      声明：procedure WriteListEnd;
      WriteListEnd方法在流中，写入项目列表结束标志，它是与WriteListBegin相匹配的方法。
      6. WriteBoolean方法
      声明：procedure WriteBoolean（Value: Boolean）;
      WriteBoolean方法将Value传入的布尔值写入流中。
      7. WriteChar方法
      声明：procedure WriteChar（Value: char）;
      WriteChar方法将Value中的字符写入流中。
      8. WriteFloat方法
      声明：procedure WriteFloat（Value: Extended）;
      WriteFloat方法将Value传入的浮点数写入流中。
      9. WriteInteger方法
      声明：procedure WriteInteger（Value: Longint）;
      WriteInteger方法将Value中的整数写入流中。
      10. WriteString方法
      声明：procedure WriteString（const Value: string）;
      WriteString方法将Value中的字符串写入流中。
      11. WriteIdent方法
      声明：procedure WriteIdent（const Ident: string）;
      WriteIdent方法将Ident传入的标识符写入流中。
      12. WriteSignature方法
      声明：procedure WriteSignature;
      WriteSignature方法将Delphi
      Filer对象标签写入流中。WriteRootComponent方法在将部件写入流之前先调用WriteSignature方法写入Filer标签。Reader对象在读部件之前调用ReadSignature方法读取该标签以指导读操作。
      13. WritComponent方法
      声明：procedure WriteComponent（Component: TComponent）;
      WriteComponent方法调用参数Component的WriteState方法将部件写入流中。在调用WriteState之前，WriteComponent还将Component的ComponetnState属性置为csWriting。当WriteState返回时再清除csWriting.
      14. WriteRootComponent方法
      声明：procedure WriteRootComponent（Root: TComponent）;
      WriteRootComponent方法将Writer对象Root属性设为参数Root带的值，然后调用WriteSignature方法往流中写入Filer对象标签，最后调用WriteComponent方法在流中存储Root部件。