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

Question

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

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

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

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

Answer 1

好吧，你可以这样做:

const  
  ArrayBits = 10;
  ArraySize = 1 shl ArrayBits;

但我可能会回避这一点。对我来说感觉有点太晦涩了。我认为在执行算术运算时应该使用算术运算符。

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