如何消除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;

shl b的值等于a * 2 ^ b，因此1 shl ArrayBits等于2 ^ ArrayBits。