А
Size: a a a
А
А
А
DB
DB
DB
function UpdateCrc16(Value: Byte; Crc16: Word): Word;inline;
begin
Result := ((Crc16 shr 8) and $00FF) xor
crc16tab[Byte(Crc16 xor (Word(Value)) and $00FF)];
end;
function Crc16(const Value: AnsiString): Word;inline;
var
n: Integer;
begin
Result := $FFFF;
for n := 1 to Length(Value) do
Result := UpdateCrc16(Ord(Value[n]), Result);
end;
DB
DB
DB
DB
А
А
А
А
SB
SB
SB
А
А