Result:= b8; Result:= Result+ (b7 SHL 8); Result:= Result+ (b6 SHL 16); Result:= Result+ (b5 SHL 24); Result:= Result+ (b4 SHL 32); Result:= Result+ (b3 SHL 40); <------ here Result:= Result+ (b2 SHL 48); Result:= Result+ (MSB SHL 56);
(结果是int64,b1-b8是字节).
但编译器抱怨“常量exp违反了子范围”.
然后我发现了这个警告“编译器将拒绝超过32的硬编码移位权限值,除非数据类型是Int64.对于网站上的Shl”也是如此. Delphi Help对此一无所知.为什么有限制？我可以阻止它吗？也许编译器指令或什么？我可以使用乘法来克服它,但速度会慢一些.有更快的方法吗？
编辑：
我也想创建两个红衣主教因为我可以在红衣主教上使用SHL,然后将红衣主教合并在一起.这只需要一次乘法.还有其他想法吗？
EDIT2：
该代码是算法的一部分,该算法将数字形式基数255转换为基数256(反之亦然).我这样做了5亿次;所以速度很重要.
解决方法
我会避免所有算术运算(你的代码有添加和移位),并且这样做：
Int64Rec(Result).Bytes[0] := b8; Int64Rec(Result).Bytes[1] := b7; //etc.
Int64Rec在SysUtils中定义如下：
Int64Rec = packed record
case Integer of
0: (Lo,Hi: Cardinal);
1: (Cardinals: array [0..1] of Cardinal);
2: (Words: array [0..3] of Word);
3: (Bytes: array [0..7] of Byte);
end;
如果您将字节存储在一个数组中,那么您可以将它全部包装在for循环中.