第二十章 开发Delphi对象式数据管理功能(三)（The twentieth chapter develops the Delphi object type data management function (three)）.docVIP

第二十章 开发Delphi对象式数据管理功能(三)（The twentieth chapter develops the Delphi object type data management function (three)） It only adds position and Rootancestor properties. The Rootancestor property has a data domain frootancestor stored in its value in the private part. This value is read directly on the read and control of the property definition. The definition of the Position property contains two read-write control methods: GetPosition and SetPosition: Twriter = Class (Tfiler) Private Frootancestor: tcomponent; ... function GetPosition: longint; Procedure SetPosition (value: longint); Public ... Property Position: Longint read getposition write setposition; Property Rootancestor: Tcomponent read Frootancestor write frootancestor; End; The GetPosition and SetPosition methods are implemented as follows: function Twriter. getposition: Longint; Begin Result: = FStream position + fbufpos; End; Procedure Twriter. SetPosition (value: longint); var Streamposition: Longint; Begin Streamposition: = FStream position; {Only cross-border buffers are cleared} if (value = streamposition) or (Value Streamposition + Fbufpos) Then Begin WriteBuffer; FStream. Position: = value; End else Fbufpos: = value-streamposition; End; WriteBuffer is a private method defined by the Twriter object that writes the valid data in the internal buffer of the writer object to the stream and sets the Fbufpos to 0. The Flushbuffer object of the writer object is to flush the buffer with the WriteBuffer method. In the SetPosition method, if the value values exceed the bounds (fstream. Position, fstream. Position + fbufpos), the contents of the buffer are written to the stream, and the buffer is reset relative to the stream; otherwise, just move the fbufpos pointer. 2. The realization of the Twriter method The realization of ⑴writelistbegin and writelistend Both methods are used to write consecutive values of the same type. Writelistbegin writes the VALIST flag, Writelistend writes the VANULL flag. Procedure T