Delphi TWriter 物件完整指南：屬性、方法與二進制寫入格式深度解析

20.2.2 TWriter 物件

TWriter 為可實例化的寫入型 Filer，直接繼承 TFiler，覆寫方法並新增大量寫入各類資料型別 (含元件) 的方法。配合 TReader 發揮物件讀寫威力。

20.2.2.1 TWriter 核心屬性與方法

1. Position 屬性

property Position: Longint。關聯串流當前寫入位置。與 TReader 不同，Writer.Position < Stream.Position (見實現)。

2. RootAncestor 屬性

property RootAncestor: TComponent。根元件的祖先。繼承表單時，比較祖先元件僅寫入差異屬性。

3. Write 方法

procedure Write(const Buf; Count: Longint)。從緩衝區寫入指定位元組數至串流。

4-5. WriteListBegin / WriteListEnd

寫入列表起始/結束標誌 (vaList/vaNull)。TReader 對應 ReadListBegin/End、EndOfList 迴圈讀取。

6-11. 基礎型別寫入方法

• WriteBoolean(Value: Boolean)
• WriteChar(Value: Char)
• WriteFloat(Value: Extended)
• WriteInteger(Value: Longint)
• WriteString(const Value: string)
• WriteIdent(const Ident: string)

12. WriteSignature

寫入 Filer 標誌 TPF0。WriteRootComponent 寫入元件前先呼叫。TReader.ReadSignature 對應驗證。

13. WriteComponent

procedure WriteComponent(Component: TComponent)。設定 csWriting 狀態，呼叫 Component.WriteState(Self) 寫入屬性，完成後清除狀態。

14. WriteRootComponent

procedure WriteRootComponent(Root: TComponent)。設定 Root 屬性，寫入 WriteSignature，呼叫 WriteComponent 存儲根元件及其擁有樹。