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




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




  • 0
    点赞
  • 1
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

itkbase

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值