Delphi中比较GUID是否相等

　　1、CompareMem（@guid1, @guid2, SizeOf（TGUID））

　　最开始时想到的方法。

　　查看Delphi中TGUID的定义可以看到TGUID实际上是一个结构。对于结构的比较来说最方便的就是内存直接比较了。

　　TGUID = packed record

　　D1: LongWord;

　　D2: Word;

　　D3: Word;

　　D4: array[07] 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，但这种方法显然就没有转成数组后比较那么简洁了。