学步园

在记录结构定义中，因把需要进行值相同比较的类型定义在连续的范围内。对后续的处理会比较方便。

如：格式块版本定义

  //1 数据版本结构
  PDFDataEdition = ^TDFDataEdition;
  TDFDataEdition = packed record
    Size: Integer; // 结构体尺寸
    Ver: word; // 版本号
    Len: Integer; // 数据长度      <--- 这个值是随保存数据块的长度变化而变化的。
    Name: array[0..5] of char;
  end;

这种情况下比较版本类型是否相同就比较讨厌，需要跨过 Len 定义。

Result := (V1.Size = V2.Size) and 
          (V1.Ver = V2.Ver) and 
          (V1.Name[0] = V2.Name[0]) and
          (V1.Name[1] = V2.Name[1]) and
          (V1.Name[2] = V2.Name[2]) and
          (V1.Name[3] = V2.Name[3]) and
          (V1.Name[4] = V2.Name[4]);

按同类型值定义在一起的情况

  //1 新的数据版本结构
  PDFDataEdition = ^TDFDataEdition;
  TDFDataEdition = packed record
    Size: Integer; // 结构体尺寸
    Ver: word; // 版本号
    Name: array[0..5] of char;
    Len: Integer; // 数据长度      <--- 把这个变长对象搬到最后，情况会大不相同
  end;

比较函数就会简单很多

Result := CompareMem(v1, v2, sizeof(TDFDataEdition) - 4);