define in anderer Unit wird nicht 'erkannt'

[Viktorii]

Zitat von jfheins:

Das define gilt nur innerhalb der Unit.
siehe auch http://www.delphipraxis.net/18752-globale-compiler-directive-wie-%7B$define-test%7D.html

*gnümpf*

Okay, mit dem Include wäre ja schon mal eine Lösung, aber wo kann ich denn in den Projektoptionen unter Delphi XE sowas anlegen, wie in dem verlinkten Thread beschrieben?

Dort wo ich es versucht habe, klappt das nicht (siehe Anhang)

[uligerhardt]

Zitat von Viktorii:

Dort wo ich es versucht habe, klappt das nicht (siehe Anhang)

Sollte schon so klappen. Hast du nach der Änderung der Optionen das Projekt komplett neu erzeugt? Sonst wirkt das Define nicht.

[Viktorii]

Ich denke schon, mit Shift+F9

Scheint aber nicht zu gehen (siehe erneut Anhang)

[Uwe Raabe]

Zitat von Viktorii:

Dort wo ich es versucht habe, klappt das nicht (siehe Anhang)

Das sind ja auch die Bedingungen für de Resourcen-Compiler!

[himitsu]

Glabale DEFINES kann man über die Projektoptionen angeben.


Wenn "Conditional Expessions" im Compiler vorhanden sind, dann kann man statt auf Defines auch auf Typen/Constanten und Co. prüfen.

Delphi-Quellcode:

// Unit 1
{$IFDEF IRGENDWAS}
  const MyIRGENDWAS = True;
{$ENDIF}

// Unit 2
uses Unit1;
{$IF Declared(MyIRGENDWAS)}  // kann eine Konstante, Klasse oder Variable sein
  ...
{$IFEND}

Delphi-Quellcode:

// Unit 1
const MyIRGENDWAS = {$IFDEF IRGENDWAS}True{$ELSE}False{$ENDIF};


// Unit 2
uses Unit1;
{$IF MyIRGENDWAS}
  ...
{$IFEND}

[Viktorii]

Zitat von Uwe Raabe:

Zitat von Viktorii:

Dort wo ich es versucht habe, klappt das nicht (siehe Anhang)

Das sind ja auch die Bedingungen für de Resourcen-Compiler!

Jo, da hast Du recht. Habe nur nach 'Verzeichnisse und Bedingungen' geschaut und übersehen, dass das für den Ressourcen-Compiler ist.

Habe mittlerweile die richtige Stelle gefunden: Delphi-Compiler->Bedingungen.

Vielen Dank an alle.

[himitsu]

Zitat von Viktorii:

Habe mittlerweile die richtige Stelle gefunden: Delphi-Compiler->Bedingungen.

Wenn sich diese Definition "öfters" mal ändern könnte, dann nimm Abstand davon.

Der Compiler bekommt diese Änderungen nicht mit und wenn sich sonst nichts in einer Unit geändert hat, dann wird sie nicht neu kompiliert.
Da hilft dann nur neu "erzeugen", was man gerne mal vergißt.
(macht voll Spaß, wenn man diese Condition in mehreren Units verwendet und diese am Ende unterschiedlich kompiliert wurden)

Ein Include-Datei wird dagegen immer beachtet.




Mit sowas hatte ich mir mal beholfen, als ich das DEFINE in eine andere Unit weiterreichen wollte.

Delphi-Quellcode:

// ########## Unit 1 ##############################

{$DEFINE IRGENDWAS}  // oder in den Projektoptionen

...

{$IFDEF IRGENDWAS}
  const IRGENDWAS_MARKER = True;
  {$MESSAGE Hint 'Define "IRGENDWAS" wurde gesetzt.'}  // nur sichtbar, wenn die Unit gerade kompiliert wurde
{$ENDIF}

...

{$IFDEF IRGENDWAS}...{$ENDIF}

// ########## Unit 2 ##############################

uses Unit1;

{$UNDEF IRGENDWAS}
{$IF Declared(IRGENDWAS_MARKER)}
  {$DEFINE IRGENDWAS}
{$IFEND}

...

{$IFDEF IRGENDWAS}...{$ENDIF}