Расчет CRC с полиномом MODBUS

@GreyW · Регистрация: 21.06.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Есть описание протокола счетчика серии СЭТ-4ТМ. Там есть пример на Паскале "Расчет CRC c полиномом MODBUS". Создал проект в Delphi 7, но ничего не получается. Запутался в типах переменных.

Пожалуйста помогите исправить проект.
Заранее спасибо.

@GreyW · 19.11.2015, 17:02 **[ТС]**

Не получается сделать функцию

Delphi

function CRC16(BufSend: Test): Test;
begin
  Crc := UpdCRC(BufSend[0], InitCRC);
 
  for I := 1 to LengthSend - 1 do
    Crc := UpdCRC(BufSend[I], Crc);
 
  BufSend[LengthSend] := Crc mod 256;
  BufSend[LengthSend + 1] := Crc div 256;
end;

так как в описании она приведена не до конца.
И проект уже пытаюсь переписать на классе.

	19.11.2015, 17:02

Расчет CRC с полиномом MODBUS

Решение