Question

delphi中，怎么实现16进制的相加只取最低两字节？用ASC的方法若字节数多就溢出报警了。

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

我记得在 教程里说的 字符串前面加“/R” 表示十六进制