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

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

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

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

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

最佳答案

const
  ArrayBits = 10;
  ArraySize = 1 shl ArrayBits;

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