在记录结构定义中,因把需要进行值相同比较的类型定义在连续的范围内。对后续的处理会比较方便。
如:格式块版本定义
//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);