Значение константы из функции

[Vadim]

В модуле мне нужно определить значения констант из функции. Причём функция определена в этом же модуле.

Код: Выделить всё

function f(p1,p2: integer): integer;

Const
  const1 = f(1,2);
  const = f(3,4);

Как это правильно сделать? В таком виде компилятор выдаёт ошибку "Illegal expression".

[serbod]

Константы назначаются при компиляции. Можно использовать только функции препроцессора (макросы)
https://www.freepascal.org/docs-html/prog/progse5.html

Добавлено спустя 5 минут 32 секунды:
Однако, можно разрешить запись в констаты директивой {$J} или {$WriteableConst}

[Vadim]

Понятно. Попробую тогда с макросами поиграть...

[iskander]

Типизированные константы вполне себе допускают присваивание, если {$WRITEABLECONST ON}.

Код: Выделить всё

const
  MyInt: Integer = 0;
  .....................
{$PUSH}{$J+}
  MyInt := -1;
{$POP}

должно работать.

[Vadim]

Типизированные константы вполне себе допускают присваивание

Это в процессе работы программы. А там мне как раз присваивать константам ничего не надо, только при их объявлении нужно получить определённое вычисляемое значение, т.к. оно основано на типизированных значениях из другого модуля и те другие вполне могут поменяться. Поэтому лучше использовать не сами значения, а их имена в системе.

[Vapaamies]

Код: Выделить всё

function f(p1,p2: integer): integer;

Const
  const1 = f(1,2);
  const = f(3,4);

Как это правильно сделать? В таком виде компилятор выдаёт ошибку "Illegal expression".

Во втором объявлении ключевое слово const используется в качестве идентификатора. Взял ваш пример в качестве постановки по двухстадийной компиляции в Халва-Паскале, второе объявление исправил на const2.

[Vadim]

Во втором объявлении ключевое слово const используется в качестве идентификатора.

Это была непропечатка клавы... На самом деле там должно быть как раз "const2".