вывод константы в хинт или варнинг.

[Attid]

в общем вот что хочется сделать.
в программе обьявлена константа
cVersion = '0.0.1';

хочу чтоб при компиляции в хинте или варнинге выводилось
"Version 0.0.1"

[Alexander]

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

begin
{$WARNING aaaaaa}
{$WARNING bbbbbb}
{$MESSAGE 'cccccc'}

end.

[Attid]

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

const
  cVersion = '0.9.6';

{$WARNING cVersion}
{$WARNING cVersion}
{$MESSAGE cVersion}

не работает
получаю вот что

ackernel2.lpr(13,2) Warning: User defined: cVersion
ackernel2.lpr(14,2) Warning: User defined: cVersion
ackernel2.lpr(15,2) Warning: Illegal compiler directive "CVERSION"
Project "ackernel2" successfully built.

[SovNarKom]

Через DEFINE попробуй

[Alexander]

Странно. Не увидел прямого пути.

Попутно увидел такое (присваивает константе или внутреннюю
переменную ФПК или (если такого названия нет) переменную
окружения).

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

const
      c : string = {$I %HOME%};
begin
WriteLn(c);
end.

Но это совсем не то. А ты реально, в действии
видел где нибудь ? Может вообще нет ?

[Attid]

видел где нибудь ? Может вообще нет ?

еслиб видел не спрашивал =)
а про окружение интересно, только %HOME% моего пользователя зашьется в код или будет браться каждый раз ?

[Sergei I. Gorelkin]

В том Паскале, к которому все привыкли (TP/Delphi/FPC в соотв. режимах), этого вообще нет. Если очень хочется, можно попробовать использовать макросы или режим MacPas.

[Alexander]

зашьется в код

[Attid]

хорошая возможность проверять где запущенно приложение дома или у клиента =)

[Иван Шихалев]

Зашьется не %HOME% пользователя, а %HOME% времени компиляции. Или пользователь всегда перекомпилирует?

[Attid]

в том то и дело что пользователь не компилит, а у себя можно доб инфу к примеру выводить, или пароль не просить лишний раз.
привязку правда не к хоум, а другой переменой сделать.
и если при запуске программы она соответсвует той что при компеляции, то . ..