Direktiven auf Konstanten anwenden

[s.h.a.r.k]

Hallo,

ich habe zurzeit ein Problem, da wie folgt aussieht: Ich habe ein Programm, dass ich lokal auf meinem Rechner programmiere (Pfad der EXE: C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\BDS Projects\MeinProgramm\). Wenn das Programm nun fertig ist, soll es auf einem Netzlaufwerk sein (Pfad: L\Anwendungen\MeinProgramm\).

Nun habe ich bisher ein paar Konstanten definiert und wolle wissen, ob man Direktiven auch auf den Konstantenblock anwenden kann, so in der Art und Weise:

Delphi-Quellcode:

const
  {$IFDEF BDSRUN}
  MYCONST = 'Die Delphi-IDE ist gestartet';
  {$ENDIF} {$ELSE}
  MYCONST = 'Delphi läuft nicht';
  {$ENDIF}

Die Direktive BDSRUN definiere ich schon vorher.

Vielen Dank schon mal für eure Antworten.

PS: Habe Delphi 2005!

mfg shark

[turboPASCAL]

Ja, warum nicht ?

Delphi-Quellcode:

const
{$IFDEF Bedingung}
  WasAuchImmer = True;
{$ELSEIF}
  WasAuchImmer = False;
{$ENDIF}

var
{$IFNDEF Bedingung} // ist nicht def. ... dann ...
  foo: Integer = 0815;
{$ENDIF}

[s.h.a.r.k]

Wenn ich dann später in dieser Unit auf die Konstante zugreifen will dann meldet Delphi, dass der Bezeichner undefiniert ist... Weißt leider nicht wieso... daher kam die Frage auf!

[tomsel]

Zitat:

Delphi-Quellcode:

const
  {$IFDEF BDSRUN}
  MYCONST = 'Die Delphi-IDE ist gestartet';
  {$ENDIF} {$ELSE}  <----------------------------------------------- Fehler, $ENDIF muss hier weg
  MYCONST = 'Delphi läuft nicht';
  {$ENDIF}