delphi - 如何消除Delphi中的重复常量？

Question

我有使用两个常量的代码，每个常量都以不同的方式描述数组的大小：

const  ArraySize = 1024;
       ArrayBits = 10;    //2^10 = 1024 bits

我如何用另一个来表达其中一个？编译器不允许在常量中使用 Log2 或 LdExp。

任何版本的 Delphi 的答案都可以。

Answer 1

好吧，你可以这样做：

const  
  ArrayBits = 10;
  ArraySize = 1 shl ArrayBits;

但我可能会回避这一点。对我来说感觉有点太模糊了。在我看来，在执行算术运算时应该使用算术运算符。

我可能会保留您的代码，并在运行时代码中添加一个断言，表明这两个常量是适当相关的。也用评论记录它。

Answer 2

const
  ArrayBits = 10;
  ArraySize = 1 shl ArrayBits;

a shl b 的值等于 a * 2^b，所以 1 shl ArrayBits 等于 2^ArrayBits。