【正文】 這時(shí)， DFM 文件不是作為獨(dú)立的磁盤文件，而是以應(yīng)用程序資源中的 RCDATA 類型的二進(jìn)制數(shù)據(jù)存在。方法中調(diào)用的 MehtodAddress 方法定義在 TObject 中，它是個(gè)很有用的方法，它可以得到對(duì)象中定義的 public 方法的地址。 function (const Message: string): Boolean。 end。 FOwner := FRoot。 function FindUniqueName(const Name: string): string。 Owner := AOwner。 (Self)。 ReadComponent 方法用于從 Reader 對(duì)象的流中讀取部件。 end。 vaNil: Result := 39。 ReadStr。 end。 vaInt32: Read(Result, SizeOf(Result))。 5. 簡(jiǎn)單數(shù)據(jù)類型讀方法的實(shí)現(xiàn) 簡(jiǎn)單數(shù)據(jù)類型指的是布爾型、字符型、整型、字符串型、浮點(diǎn)型、集合類型和標(biāo)識(shí)符。 begin CheckValue(vaNull)。 end。 Count: Longint。 在 GetPosition 方法中可以看到 Reader 對(duì)象的 Position 值和 Stream 對(duì)象的Position值是不同的。 1. TReader 屬性的實(shí)現(xiàn) 在 TReader 對(duì)象的屬性實(shí)現(xiàn)中我們重點(diǎn)介紹 Position的實(shí)現(xiàn)。 ReadBoolean方法從 Reader 對(duì)象的流中讀取一個(gè)布爾值，并相應(yīng)地移動(dòng)流位置指針。 var ButtonPos: Integer。 傳給 OnError 事件處理過(guò)程的最后一個(gè)參數(shù)是名為 Handled 的 var 參數(shù)。在FindMethod 方法沒(méi)有找到由 Name 指定的方法的情況下，如果它將OnFindMethod 方法的 Error 參數(shù)設(shè)為 True，將引起 ReadError 異常事件；反之，將 Error 參數(shù)置為 False，將防止 FindMethod 方法引發(fā)異常事件。 { 越過(guò)列表結(jié)束標(biāo)志 } end。 ReadListBegin 方法從 Reader 對(duì)象相聯(lián)的流中讀取列表開(kāi)始標(biāo)志。 BeginReferences 方法啟動(dòng)一連串關(guān)于讀部件的命令，這些部件包含相互間的交叉引用。 第二十章 開(kāi)發(fā) Delphi對(duì)象式數(shù)據(jù)管理功能（四） TReader 對(duì)象 TReader 對(duì)象是可實(shí)例化的用于從相聯(lián)系的流中讀取數(shù)據(jù)的 Filer 對(duì)象。在使用上通常和 FixupReferences 和 EndReferences 一起放在 Try?finally 程序塊中。如果流中緊接著要讀取的項(xiàng)目不是一個(gè)由 WritelistBegin 方法寫入的列表起始標(biāo)志，ReadListBegin將引起一個(gè)讀異常事件。 10. ReadSignature 方法 聲明： procedure ReadSignature。 13. Error 方法 聲明： function Error(const Message: String): Boolean。在缺省情況下， Error 方法將 Handled 置為 True。 begin ButtonPos := Pos(39。 ReadChar 方法 聲明： function ReadChar: char。 Position 屬性的定義了使用了讀寫控制，它們分別是 GetPosition 和SetPosition方法。 Reader 對(duì)象多了一個(gè) FButPos 的編移量。 begin if CompareText(Name, FPropName) = 0 then begin if ReadValue vaBinary then begin Dec(FBufPos)。 end。 end。將它們放在一起介紹是因?yàn)樗鼈兊膶?shí)現(xiàn)方法類似。 else PropValueError。 SetString(Result, PChar(nil), L)。 PropValueError。nil39。 FilerSignature 就是 Filer 對(duì)象標(biāo)簽其值為“ TPF0” ，如果讀的不是“ TPF0” ，則會(huì)觸發(fā) SInValidImage 異常事件。 Component 參數(shù)指定了要從流中讀取的對(duì)象。 Exclude(, csReading)。 Parent := AParent。 begin ? end。 Include(, csLoading)。 ReadRootComponent 首先調(diào)用 ReadSignature 讀取 Filer 對(duì)象標(biāo)簽。 begin Result := False。 FindMethod 方法和 OnFindMethod 事件在動(dòng)態(tài) DFM 的編程中有很重要的作用。建立聯(lián)系的過(guò)程表現(xiàn)為將資源中的部件及其屬性與應(yīng)用程序中的對(duì)象及其數(shù)據(jù)域聯(lián)系起來(lái)。 在運(yùn)行時(shí)，主要是建立聯(lián)系的過(guò)程，即讀取 DFM 文件。 OnFindMethod 方法除了可以給部件的 MethodName 所指定的方法指針動(dòng)態(tài)賦值外，還可修改 Error 參數(shù)來(lái)決定是否處理 Missing Method 錯(cuò) 誤。 OnError 事件處理過(guò)程是在Error 方法中調(diào)用的。 end。 try (FRoot)。如果 Component 參數(shù)為 nil，則創(chuàng)建一個(gè)相同類型的部件，最后返回該部件： function (Root: TComponent): TComponent。 begin Root := AOwner。 Include(, csReading)。如果 ffChildPos 置位，則緊接著的整型數(shù)字中放著部件在窗體中的位置序值。 if Signature Longint(FilerSignature) then ReadError(SInvalidImage)。True39。 if Ord(Result) 1 then begin Dec(FBufPos)。 else PropValueError。 end。 EndOfList 函數(shù)只是簡(jiǎn)單地判斷下一字節(jié)是否是 VaNull 將判斷結(jié)果返回，并將字節(jié)移回原來(lái)位置。 procedure 。39。 var Stream: TMemoryStream。 Filer 對(duì)象內(nèi)部分配了一個(gè) BufSize 大小的緩沖區(qū) FBufPos 就是指在緩沖區(qū)中的相對(duì)位置， FBufEnd 是指在緩沖區(qū)中數(shù)據(jù)結(jié)束處的位置 (緩沖區(qū)中的數(shù)據(jù)不一定會(huì)充滿整個(gè)緩沖區(qū) )。下面我們著重介紹 Reader 對(duì)象中與讀寫數(shù)據(jù)操作有關(guān)的屬性和方法的實(shí)現(xiàn)。 19. ReadBoolean 方法 聲明： function ReadBoolean: Boolean。 var Name: string)。通過(guò)處理 OnError 事件，可以有選擇地處理或忽略錯(cuò)誤。 響應(yīng) OnFindMethod 事件的理由，通常是處理過(guò)程找不到方法的情況。 { ?讀一個(gè)字符串并將其加在列表中 } 。 7. ReadListBegin 方法 聲明： procedure ReadListBegin。 4. BeginReferences 方法 聲明： procedure BeginReferences。TReader 對(duì)象從 TFiler 繼承下來(lái)，除了從 TFiler 繼承的屬性和方法外， TReader聲明了不少屬性、方法和事件。 在調(diào)用了 BeginReferences 后， Reader 對(duì)象創(chuàng)建讀取所有對(duì)象和名字的列表。 通常在調(diào)用 ReadlistBegin 方法之后，緊跟著一個(gè)讀項(xiàng)目的循環(huán)，循環(huán)以EndfList 方法返回 True 終止條件。 ReadSignature 方法從流中讀取部件之前首先調(diào)用 ReadSignature 方法。 virtual。這將阻止錯(cuò)誤更進(jìn)一