Modbus RTU CRC检验方法

是我现在正在使用的,100%可用。function ModBusCRC(Data: string): string; //生成modbus CRC数据var CRC16Lo, CRC16Hi, CL, CH, UseHi, UseLo: Dword; i, index: integer;begin CRC16Lo := ; //CRC16Lo为CRC寄存器低8位 CRC16Hi := ; //CRC16Hi为CRC寄存器高8位 CL := $1; CH := ; // A001 H 是CRC-16多项式代码 for i := 1 to Length(Data) do begin CRC16Lo