Delphi中比較GUID是否相等

1、CompareMem(@guid1, @guid2, SizeOf(TGUID))
最開始時想到的方法。
查看Delphi中TGUID的定義可以看到TGUID實際上是一個結構。對于結構的比較來說最方便的就是內存直接比較了。
TGUID = packed record
D1: LongWord;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;

2、SysUtils.IsEqualGUID(const guid1, guid2: TGUID)
經人提醒后發現在SysUtils單元已經有了一個這樣專門比較GUID是否相等的函數。查看SysUtils的源碼可以看到，在Windows下直接調用ole32.dll的函數IsEqualGUID，在Linux下將GUID轉換成整型數組然后比較數組中的每個元素。效果和上面的CompareMem一樣。
{$IFDEF MSWINDOWS}
function IsEqualGUID; external 'ole32.dll' name 'IsEqualGUID';
{$ENDIF MSWINDOWS}
{$IFDEF LINUX}
function IsEqualGUID(const guid1, guid2: TGUID): Boolean;
var
a, b: PIntegerArray;
begin
a := PIntegerArray(@guid1);
b := PIntegerArray(@guid2);
Result := (a^[0] = b^[0]) and (a^[1] = b^[1]) and (a^[2] = b^[2]) and (a^[3] = b^[3]);
end;
{$ENDIF LINUX}
當然，我們可以一次比較TGUID中的字段D1、D2、D3、D4，但這種方法顯然就沒有轉成數組后比較那么簡潔了。

上面提到的兩種方法都可以用，并且在效率上也差不多。不過出于通用性的考慮，建議用Delphi封裝的函數SysUtils.IsEqualGUID更好。