Question

delphi编程，实现16进制的多字节相加但只取最低两字节？如12+23+23+42+23+AA+CA=31

12+23+23+42+23+AA+CA+····+，用转化为ASC计算，加数多到一定程度就溢出了；转化为ASC一个一个加也会出现错误（如下图）。如果如果转化成16进制inttohex的话，变成字符串形式又怎么相加？求教各位大神，这个问题怎么解决，或者有什么更好的办法啊？

Answer 1

没怎么测试，自己试试看，传入的字符串为12+23+23+42+23+AA+CA（最终计算是某种校验码吗？）

function Sample(str: string): string;
var
list: Tstringlist;
i, sum: Integer;
begin
list := tstringlist.Create;
ExtractStrings(['+'], [' '], pchar(trim(str)), list);
sum := 0;
for i := 0 to List.Count - 1 do
begin
if trim(list[i]) <> '' then begin
sum := sum + strtoint('$' + list[i]);
sum := sum and $FF;
end;
end;
result := inttohex(sum, 2);
end;

测试
showmessage(sample('12+23+23+42+23+AA+CA'));
结果为31

Answer 2

直接定义一个 BYTE 就成了
或者第个加后 写上 （12 + 23） mod 256

追问

用byte是不是为了能够逐个相加？我现在也是用逐个相加的：字符转对应ASC数值相加，转16进制并取低两字节，后面都是循环重复上面的步骤，这个就是上面图片显示的报警。还有，mod怎么使用，是直接使用还是要在uses里面加什么？

追答

mod 直接用的，也是一个运算符是取模的，你的转换出问题了。