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:

markieren

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 ?

zusammenfalten · markieren

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:

markieren

Delphi-Quellcode:

			const

  {$IFDEF BDSRUN}

  MYCONST = 'Die Delphi-IDE ist gestartet';

  {$ENDIF} {$ELSE}  <----------------------------------------------- Fehler, $ENDIF muss hier weg

  MYCONST = 'Delphi läuft nicht';

  {$ENDIF}

Direktiven auf Konstanten anwenden

Direktiven auf Konstanten anwenden

Re: Direktiven auf Konstanten anwenden

Re: Direktiven auf Konstanten anwenden

Re: Direktiven auf Konstanten anwenden

Forumregeln

turboPASCAL Registriert seit: 8. Mai 2005 Ort: Sondershausen 4.274 Beiträge Delphi 6 Personal	#2 Re: Direktiven auf Konstanten anwenden 27. Jan 2006, 10:41 Ja, warum nicht ? zusammenfalten · markieren Delphi-Quellcode: const {$IFDEF Bedingung} WasAuchImmer = True; {$ELSEIF} WasAuchImmer = False; {$ENDIF} var {$IFNDEF Bedingung} // ist nicht def. ... dann ... foo: Integer = 0815; {$ENDIF} Matti Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#3 Re: Direktiven auf Konstanten anwenden 27. Jan 2006, 11:06 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! »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat