Delphi中比较GUID是否相等
来源:互联网 发布:收银软件免费版 编辑:程序博客网 时间:2024/06/04 23:21
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 0
- Delphi中比较GUID是否相等
- Delphi中比较GUID是否相等
- Delphi中比较GUID是否相等
- Delphi中比较GUID是否相等
- Delphi中比较GUID是否相等
- Delphi中比较GUID是否相等
- Delphi中比较GUID是否相等
- ORACLE中字符串是否相等的比较
- C#中比较引用类型是否相等
- java中比较两个字符串是否相等
- delphi 如何比较两个二维数组是否相等
- 比较字符串是否相等
- 比较字符串是否相等
- list比较是否相等
- 比较字符串是否相等
- NDK中开发中比较字符串是否相等,
- C#中比较两个值型一维数组变量是否值相等
- C#中比较两个值型一维数组变量是否值相等
- git ignore 文件和文件夹
- Sicily 1817. 校歌手大奖赛
- Sicily 1765. 笨小猴
- NoSQL数据模型详解(一)の键值模型
- 简单网站的进化
- Delphi中比较GUID是否相等
- A Knight's Journey
- const用法
- Struts2_三种传参数方法
- XWork容器的存储结构
- Sicily 1816. 平面几何问题
- unity3d 不同平台载入XML文件的方法——IOS MAC Android
- Makefile基础
- linux内核IP地址转换函数