function TForm1.CrcCalc(c, oldCrc: Byte): Byte;
var
i: Byte;
begin
oldCrc:= oldCrc xor c;
for I := 0 to 7 do
begin
if ($80 and oldCrc)<>0 then
begin
oldCrc:=oldCrc shl 1;
oldCrc:=oldCrc xor 7;
end
else
oldCrc:=oldCrc shl 1;
end;
Result:=oldCrc;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024