const MaxLen = 20; type PSpecsInfo = ^tagSpecsInfo; tagSpecsInfo = record sSpecsName: array[0..MaxLen - 1] of Char; iCount: Cardinal; dSectionArea: Double; sSectionStr: array[0..MaxLen - 1] of Char; end;