本文主要是介绍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更好。
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=743556
这篇关于Delphi中比较GUID是否相等的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
