Проекты Логинова Дмитрия

Справочная система Matrix32

Unit
Matrix32

Declaration

TBCDNumber = packed record
    BCDPrecision    : Short; // Текущая длина числа (длина значащей части)
    BCDSeparatorPos : Short; // Номер цифры, после которой следует десятичная часть
    BCDSigned       : Short; // 1, если число отрицательное
    BCDData: array[0..MaxBCDLength div 2 - 1] of Byte; // Собственно данные
  end;