Delphi中比較GUID是否相等

?

1、CompareMem(@guid1, @guid2, SizeOf(TGUID))
?最開(kāi)始時(shí)想到的方法。
?查看Delphi中TGUID的定義可以看到TGUID實(shí)際上是一個(gè)結(jié)構(gòu)。對(duì)于結(jié)構(gòu)的比較來(lái)說(shuō)最方便的就是內(nèi)存直接比較了。
? TGUID = packed record
??? D1: LongWord;
??? D2: Word;
??? D3: Word;
??? D4: array[0..7] of Byte;
? end;

2、SysUtils.IsEqualGUID(const guid1, guid2: TGUID)
?經(jīng)人提醒后發(fā)現(xiàn)在SysUtils單元已經(jīng)有了一個(gè)這樣專門比較GUID是否相等的函數(shù)。查看SysUtils的源碼可以看到，在Windows下直接調(diào)用ole32.dll的函數(shù)IsEqualGUID，在Linux下將GUID轉(zhuǎn)換成整型數(shù)組然后比較數(shù)組中的每個(gè)元素。效果和上面的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}
?當(dāng)然，我們可以一次比較TGUID中的字段D1、D2、D3、D4，但這種方法顯然就沒(méi)有轉(zhuǎn)成數(shù)組后比較那么簡(jiǎn)潔了。

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