Class and Record Helpers

文章出處 : http://blog.leoshiang.com/?p=74

註 : Delphi XE3 開始支持......

Class and Record Helpers 是 Delphi 新增的語言特性，它是一種型別與其他類別(Class)或記錄(Record)結合，讓原來的類別可以使用新增的方法(Method)。聽起來有點難懂，我們用一個比較實際的例子來解釋。

Delphi 有一個內建的 Record TGUID，其定義如下：

TGUID = packed record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
    class operator Equal(const Left, Right: TGUID): Boolean;
    class operator NotEqual(const Left, Right: TGUID): Boolean;
    class function Empty: TGUID; static;
  end;

如果我想新增一個功能可以將 GUID 從串流中讀取，照以前的作法我會這樣設計：

procedeure GUIDFromBytes( const Data: TBytes; const Index: Integer; var GUID: TGUID);
begin
  Move(Bytes[Index], GUID, SizeOf(GUID));
end;

使用方式如下：

var
  GUID: TGUID;
  Data: TBytes;
begin
  GUIDFromBytes(Data, 0, GUID);
end;

這樣的作法，是另外定義一個 procedure 來處理。如果使用 Record Helper 的話可以更簡化：

type
  TUUID = record helper for TGUID
    procedure FromBytes(Bytes: TBytes; I: Integer);
  end;
?
implementation
?
procedure TUUID.FromBytes(Bytes: TBytes; I: Integer);
begin
  Move(Bytes[Index], GUID, SizeOf(GUID));
end;

新建一個類別 TUUID，用 record helper for TGUID 將它與 TGUID 的結合。使用方式如下：

var
  GUID: TGUID;
  Data: TBytes;
begin
  GUID.FromBytes(Data, 0);
end;

有沒有發現差異在哪？使用 Record Helper 之後，新定義的 FromBytes Method 與原本的 TGUID 結合在一起，也就是說我們不修改原本的程式碼便能為原本的 TGUID 增加新的功能。