Delphi编译错误：常量初始化提示'Constant expression expected'

错误原因 #

Delphi 要求类内常量的初始化表达式必须是编译期可直接求值的常量表达式，不允许引用同一个类中定义的其他类常量——哪怕这些被引用的常量已经提前声明。编译器在处理P1的初始化时，无法将TALSplineOverScroller.START_TENSION * TALSplineOverScroller.INFLEXION解析为编译期可确定的常量，因此抛出E2026 Constant expression expected错误。

解决方法 #

方法1：将常量移至类外全局常量块 #

把所有相关常量放到类外部的全局const块中，全局常量支持互相引用，编译器会按顺序解析求值：

const
  INFLEXION: Single = 0.35;
  START_TENSION: Single = 0.5;
  P1: Single = START_TENSION * INFLEXION;

TALSplineOverScroller = class(TObject)
private
  // 若需在类内保持常量访问入口，可声明类内常量指向全局常量
  const INFLEXION = UnitName.INFLEXION;
  const START_TENSION = UnitName.START_TENSION;
  const P1 = UnitName.P1;
end;

注：UnitName替换为当前单元的实际名称

方法2：直接使用计算后的常量值 #

跳过类内常量引用，直接在P1的初始化中写入计算结果：

TALSplineOverScroller = class(TObject)
private
  const INFLEXION: Single = 0.35;
  const START_TENSION: Single = 0.5;
  const P1: Single = 0.175; // 直接计算0.5*0.35的结果
end;

这种方式最直接，适合常量值不会频繁修改的场景。

方法3：使用类静态常量（Delphi XE及以上） #

如果需要保持类内封装，可使用class const（Delphi XE开始支持），并通过编译期可识别的方式初始化：

TALSplineOverScroller = class(TObject)
private
  class const INFLEXION: Single = 0.35;
  class const START_TENSION: Single = 0.5;
  class const P1: Single = START_TENSION * INFLEXION;
end;

注：部分旧版Delphi可能仍不支持类静态常量互相引用，需测试确认编译兼容性

内容的提问来源于stack exchange，提问作者zeus