大佬教程收集整理的这篇文章主要介绍了delphi – 我不能使用带有int64变量的SHL(向左移位),大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
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循环中.
以上是大佬教程为你收集整理的delphi – 我不能使用带有int64变量的SHL(向左移位)全部内容,希望文章能够帮你解决delphi – 我不能使用带有int64变量的SHL(向左移位)所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。