Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
7-77180
plaha999
2003-03-06 10:39
2003.04.24
Работа с железом


7-77201
sharik_212
2003-03-07 15:23
2003.04.24
Сколько видеопамяти? (на видеоплате)


1-76885
Still Swamp
2003-04-14 09:46
2003.04.24
TCollection и TCollectionItem


1-77001
Stranger
2003-04-10 17:12
2003.04.24
Показ формы ActiveX


3-76801
Troy
2003-04-05 20:30
2003.04.24
База-связь





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский