Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.13;
Скачать: CL | DM;

Вниз

Как можно задать константу автоматически при выборе приложения?   Найти похожие ветки 

 
dreamse   (2008-07-04 09:34) [0]

Доброе утро.

В глобальном юните для всех проектов есть константа

const
 ProjectNumber = 0;

И есть несколько проектов. Каждый из которых имеет свой номер.
В зависимости от этого номера формируеться название DLL при её инциализации.
т.е задать переменную после старте проекта уже не удасться.

Вопрос: Можно ли в Delphi каким либо образом менять в коде это глобальную константу при компиляции проекта?

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


 
Поросенок Винни-Пух ©   (2008-07-04 09:39) [1]

const
{$IFDEF PROGECT0}
ProjectNumber = 0;
{$ENDIF}
{$IFDEF PROGECT1}
ProjectNumber = 1;
{$ENDIF}


 
dreamse   (2008-07-04 10:18) [2]

> Поросенок Винни-Пух ©   (04.07.08 09:39) [1]

Вписываю: {$IFDEF PROGECT0}

заместо PROGECT0 имя проекта, реакции ноль :(

Как в $IFDEF задавать определение чего то ? Например проекта ?


 
Поросенок Винни-Пух ©   (2008-07-04 10:23) [3]

Ууууу как все запущено ..........


 
Поросенок Винни-Пух ©   (2008-07-04 10:24) [4]

project->options directories/conditionals


 
dreamse   (2008-07-04 10:33) [5]

> Поросенок Винни-Пух ©   (04.07.08 10:24) [4]

Спасибо, разобрался


 
Anatoly Podgoretsky ©   (2008-07-04 11:09) [6]

> dreamse  (04.07.2008 10:18:02)  [2]

Нормальные люди справку читают, не призирая и часть See Also

{$DEFINE



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

Текущий архив: 2009.09.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
2-1247246973
@!!ex
2009-07-10 21:29
2009.09.13
Как в TStream записать строку


15-1248039005
Юрий
2009-07-20 01:30
2009.09.13
С днем рождения ! 20 июля 2009 понедельник


15-1247344205
Юрий
2009-07-12 00:30
2009.09.13
С днем рождения ! 12 июля 2009 воскресенье


2-1247305161
noHaker
2009-07-11 13:39
2009.09.13
Системные сообщения


2-1247300572
Igor2010
2009-07-11 12:22
2009.09.13
Проверка строки