比较 GUID，以便我可以按 GUID 排序

Question

有什么好的、快速的方法来对 GUID 列表（如 TGuid）进行排序。我想我只是使用 SysUtils.CompareMem(P1, P2: Pointer; Length: Integer): Boolean;直到我意识到它返回布尔值。

我希望有一个类似于 CompareText( ) 或 CompareValue( ) 的东西，它返回整数，以便它可以用于排序比较。

我想没有多少人希望对 GUID 进行排序...有什么想法吗？

我想我可以对 TGuid 记录的内容进行一些级联调用 CompareValue()。我的直觉告诉我一定有更好的方法！

谢谢你！

Answer 1

如果您使用的是 Delphi 2009 或更高版本，则可以使用 Generics.Defaults 单元中的 TComparer.Compare() 或其调用的 BinaryCompare 函数。

Answer 2

我不知道 Delphi，但通常 GUID 是 128 位十六进制字符串，您可以将子元素转换/解析为无符号（4 * 4 字节或2 * 8 字节）整数，然后比较它们。一旦您拥有该函数，只需应用标准排序算法即可。

如果我的答案不满足此处介绍的 Microsoft 使用的 GUID 规范 的 RFC，您也许可以想出更好的方法来排序提取 GUID 中的位级数据。

Answer 3

使用 GUIDToString 并对其进行 CompareStr ——不是最快的选项，但它可以工作。

Answer 4

Function CompareGUIDS( pvGUID1, pvGUID2 : TGUID ) : Boolean;
 Begin
   If ( pvGUID1.D1    = pvGUID2.D1 )    And
      ( pvGUID1.D2    = pvGUID2.D2 )    And
      ( pvGUID1.D3    = pvGUID2.D3 )    And
      ( pvGUID1.D4[ 0 ] = pvGUID2.D4[ 0 ] ) And
      ( pvGUID1.D4[ 1 ] = pvGUID2.D4[ 1 ] ) And
      ( pvGUID1.D4[ 2 ] = pvGUID2.D4[ 2 ] ) And
      ( pvGUID1.D4[ 3 ] = pvGUID2.D4[ 3 ] ) And
      ( pvGUID1.D4[ 4 ] = pvGUID2.D4[ 4 ] ) And
      ( pvGUID1.D4[ 5 ] = pvGUID2.D4[ 5 ] ) And
      ( pvGUID1.D4[ 6 ] = pvGUID2.D4[ 6 ] ) And
      ( pvGUID1.D4[ 7 ] = pvGUID2.D4[ 7 ] ) Then
      Result := True
   Else
      Result := False;
 End;