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