[Delphi] Dyrektywy kompilatora w Delphi XE

[sybic]

Mam dwa programy - program1 i program2

 

W obu programach wywołuje dodatkowe okienko zdefiniowane jako Form3 w Unit3.pas

Niestety pewne fragmenty kodu w Form3 odwołują się do program1, co wyklucza użycie tej formy już do kompilowania program2.

Wiem, że mogę zastosować dyrektywy i kompilować pewne fragmenty kodu przeznaczone dla program1 i program2.

Niestety za każdym razem muszę to robić ręcznie

 

Czyli jeśli kompiluje program1

 

To daje {$DEFINE P1}

 

 

{$IFDEF P1}

 

kod dla programu 1

 

{$ELSE}

 

kod dla programu 2

 

{$ENDIF}

 

a jeśli program2 to daje {$DEFINE P2}

 

Pytanie - czy nie można zrobić tego automatycznie?

Chodzi o to, że gdzieś siedzi jakaś zmienna, którą mówi o nazwie wykonywanego programu i której mógłbym użyć do moich aplikacji?

[Blind]

Na pewno można by to zrobić automatycznie przy pomocy dyrektyw, ale to nie jest elegancki rozwiązanie. Najlepiej jakbyś usamodzielnił dany moduł. Jeśli odwołuje się do danych z innego modułu to przenieś wymagane dane do form3 przed uruchomieniem.

[sazian]

a nie lepiej w każdym projekcie dodać klasę dziedziczącą po Form3 i tylko rozbudowywać jej funkcjonalność pod konkretny projekt

[DevPort]

Niegdyś stosowałem technikę osobnego pliku konfiguracyjnego "config.inc" który włączałem do unitu wykorzystującego podane definicje.

Jak by nie patrzeć taką technikę chyba JEDI używają. (coś mi tak po głowie chodzi obraz źródeł directx'a )

 

plik config:

{$DEFINE WIN}

 

a Unit1 zawierał

Unit Unit1.pas

interface
{$I config.inc}

...
{$IFDEF WIN}
kod pod windows
{$ENDIF}
//natomiast kod w dyrektywach NIX był pomijany
{$IFDEF NIX}
kod linux
{$ENDIF}

 

Obecnie mało używam tych dyrektyw, a częściej korzystam z włączania całego katalogu z odpowiednimi unit'ami.