Delphi TFiler 基礎架構與 TWriter 物件核心設計解析

20.2.1.2 TFiler 物件實現原理

TFiler 為 Filer 基礎類，多數方法為抽象型別，於 TReader/TWriter 覆寫實現，但提供完整框架。

1. TFiler 屬性實現

三屬性：Root、Ancestor、IgnoreChildren。採標準模式：private 欄位 (FRoot/FAncestor/FIgnoreChildren) + public 直接讀寫屬性。

2. TFiler 方法實現

多為抽象方法，TReader 覆寫。具體實現僅 Create/Destroy。

⑴ Create 建構子

constructor TFiler.Create(Stream: TStream; BufSize: Integer);
begin
  FStream := Stream;
  GetMem(FBuffer, BufSize);
  FBufSize := BufSize;
end;

FStream 關聯串流，FBuffer 動態分配緩衝區，FBufSize 記錄大小。緩衝區加速讀寫。

⑵ Destroy 解構子

destructor TFiler.Destroy;
begin if FBuffer <> nil then FreeMem(FBuffer, FBufSize); end;

釋放動態記憶體。

20.2.2 TWriter 物件

可實例化寫入型 Filer，直接繼承 TFiler，覆寫抽象方法並新增大量型別寫入方法。配合 TReader 發揮物件讀寫最大效能。