Скачать: CL | DM;

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]

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



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

---

← →
vuk ©   (2003-04-11 22:27) [4]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c