Delphi: Все константы являются постоянными, но некоторые являются более постоянными, чем другие?

Проблема возникает из-за того, что типизированная константа на самом деле не является константой, как было объяснено с разной степенью ясности и успеха другими.

Чего еще не было показано, так это того, как обойти проблему (в большом количестве случаев), хотя пара очень близко подошла к тому, чтобы раскрыть этот секрет ... :)

В вашем конкретном случае вы можете обойти проблему, изменив "псевдоним" значения и объявления типизированной константы следующим образом:

const
  clLink = $00FF9933;
  clHotlight: TColor = clLink;

clLink теперь предоставляет вашу истинную константу, а clHotlight - это типизированная константа, которая имеет то же значение, что и clLink .

Для идентификатора GUID можно использовать тот же метод, но вы должны иметь в виду обычное постоянное выражение, используемое для инициализации типизированной константы GUID - оно использует не запись, а простую буквальную строку, поэтому:

const
  ID_CONSTANT = '{AA1C8AF2-C290-40AB-9CF5-2888A46E1660}';
  GUID_CONSTANT: TGUID = ID_CONSTANT;

ПРИМЕЧАНИЕ. Такие константы GUID можно использовать везде, где требуются TGUID , например IsEqualGUID (tguid, GUID_CONSTANT) и т. Д.

Прочтите здесь Общие сведения о типизированных константах в Delphi

Я пробовал этот код:

  const
    CAnswer1 = 42;
    CAnswer2 : Integer = 42;

  var
    LAnswer : Integer;

  begin
    LAnswer := CAnswer1;
    LAnswer := CAnswer2;
  end;

и вот полученный код:

Project9.dpr.18: LAnswer := CAnswer1;
004101AC C7056C6E41002A00 mov [$00416e6c],$0000002a //<- assign a hard-coded "42" value
Project9.dpr.19: LAnswer := CAnswer2;
004101B6 A1701C4100       mov eax,[$00411c70] //<- fetch a variable's content
004101BB A36C6E4100       mov [$00416e6c],eax //<- assign this content 

Вы правы: некоторые константы более постоянны, чем другие. {{ 1}} Вторая константа фактически обрабатывается компилятором как переменная.

добро пожаловать в Delphi evolution. в delphi 1 и 2 вы не можете присвоить начальное постоянное значение глобальной переменной (например: var xVar: Integer = 1). Единственный способ сделать это - использовать const xVar: Integer = 1) и некоторые из ваших кодов, затем вы можете изменить его на что-то другое, если хотите. Пока они не избавятся от этой древней функции, вы не можете использовать конструкцию const xVar: Integer в качестве значения const.

Ура A Pham

Правая часть объявления константы должно быть «постоянным выражением», которое определяется как «постоянное выражение - это выражение, которое компилятор может вычислить, не выполняя программу, в которой оно встречается». Вы можете найти весь принятый синтаксис для константного выражения в руководстве по языку. Обратите внимание, что в руководстве по языку явно указано: «Типизированные константы не могут встречаться в постоянных выражениях». - и поэтому ваши объявления не работают, clHotlight: TColor = $ 00FF9933; и AdministratorGUID: TGUID = ...; являются типизированными константами. Кроме того, постоянное выражение не может включать в себя вызовы функций, кроме перечисленных в руководстве по языку (например, Length (), SizeOf () и некоторых других), которые компилятор может вычислить во время компиляции. { {1}} Перепишите так:

const
  AdminGUID = '{DE44EEA0-6712-11D4-ADD4-0006295717DA}';
  AdministratorGUID: TGUID = AdminGUID;
  SuperuserGUID: TGUID = AdminGUID;

И это сработает.

clHotlight: TColor = $00FF9933; 
          ^

объявляет clHotlight как « переменную » (ну, хорошо, «присваиваемая константа», если вы разрешено это в параметрах компилятора) с помощью : .

Как вы обнаружили, объявление:

clHotlight = TColor($00FF9933); 

не выделяет clHotlight , пока это не будет указано позже.

То же самое относится и к вашему GUID.