?

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更好。