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.youkuaiyun.com/trackback.aspx?postid=743556

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/