Delphi-йский аналог объявленных констант C++Builder

← →
Alexander1966 © (2003-04-11 16:12) [0]

В частности интерисует:
__DATE__ дата компиляции
__TIME__ время компиляции

Задача, что бы отработало что-то типа следующего:
ShowMessage("Дата компиляции: "+(String)__DATE__); // C++Builder

← →
icWasya © (2003-04-11 16:34) [1]

var __DATETIME__:TDateTime; MSG:String; __DATETIME__ :=FileDateToDateTime(FileAge(ParamStr(0))); MSG :=("Дата компиляции: "+FormatDateTime("dd.mm.yyyy hh:nn",__DATETIME__); ShowMessage(MSG);

← →
Alexander1966 © (2003-04-11 16:46) [2]

К сожаленнию этот способ дает только текущую дату и время файла
(кто угодно может поменять), а не время компиляции

← →
Fantasist. (2003-04-11 21:54) [3]

> К сожаленнию этот способ дает только текущую дату и время
> файла
> (кто угодно может поменять), а не время компиляции

Это точно, к сожалению, в Делфи нет макроподстановок.

Ну... Можно попробовать сделать ход конем...
Создаём группу проектов и включаем в нее .bat файл примерно такого вида:

echo const>BuildInfo.inc
echo __DATE__ = "%DATE%";>>BuildInfo.inc
echo __TIME__ = "%TIME%";>>BuildInfo.inc

После этого делаем так, чтобы этот файл в группе проектов был самым первым. Потом прописываем BuildInfo.inc там где нужно. Правда, компилировать теперь нужно не один проект, а все проекты в группе(Project->Compile All Projects). Вот практически оно и все. В принципе, можно генерировать не inc, а целый модуль. И еще одна тонкость - текст будет в кодировке DOS.

Delphi-йский аналог объявленных констант C++Builder Найти похожие ветки