Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можно задать константу автоматически при выборе приложения? [D7, WinXP]


dreamse ©   (2008-07-04 09:34:00) 

Доброе утро.

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

const
 ProjectNumber = 0;

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

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

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


Anatoly Podgoretsky   (2008-07-04 11:09:00) [1]

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

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

{$DEFINE


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

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

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


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

project->options directories/conditionals


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

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


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

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

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

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

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


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо