BCB6: Syntax für Compileroption

[messie]

Hallo,

habe folgenden Code geerbt:

Code:

if (!DialogBox (hInstance,
      #if (SPRACHTYP==1)
        "DIALOG_SPRACHE1"
      #endif
      #if (SPRACHTYP==2)
        "DIALOG_SPRACHE2"
      #endif
      , NULL, lpfnSpracheProc))
      {
      // canceled
      FreeProcInstance(lpfnSpracheProc);
      return FALSE;
      }
    else
      FreeProcInstance(lpfnSpracheProc);

Die Compilerbedingungen im Aufruf der Dialogbox werden nicht akzeptiert, das Doppelkreuz wird als unzulässiges Zeichen gewertet.
Sind solche Bedingungn in Funktionsaufrufen nicht möglich?

Grüße, Messie

[shmia]

Versuche mal die Anweisungen für den Precompiler ohne Leerzeichen oder Tabs
zu schreiben:

Delphi-Quellcode:

if (!DialogBox (hInstance, 
#if (SPRACHTYP==1) 
        "DIALOG_SPRACHE1" 
#elif (SPRACHTYP==2) 
        "DIALOG_SPRACHE2" 
#endif

[messie]

Zitat von shmia:

Versuche mal die Anweisungen für den Precompiler ohne Leerzeichen oder Tabs
zu schreiben:

Delphi-Quellcode:

if (!DialogBox (hInstance, 
#if (SPRACHTYP==1) 
        "DIALOG_SPRACHE1" 
#elif (SPRACHTYP==2) 
        "DIALOG_SPRACHE2" 
#endif

Hallo,

ich habe es nochmal auf unterschiedliche Weise geschrieben. Der Fehler verschwand erst, als ich die Anweisung über eine Variable vor den Funktionsaufruf gezogen habe. Es scheinen also Compileranweisungen in Funktionsaufrufen nicht zu klappen. Kann Delphi das eigentlich?

Grüße, Messie

[shmia]

Zitat von messie:

Es scheinen also Compileranweisungen in Funktionsaufrufen nicht zu klappen. Kann Delphi das eigentlich?

Delphi ist in Bezug auf den Preprozessor (#ifdef, #ifndef) deutlich schwächer als C++.
Man kann nur prüfen, ob ein Symbol definiert ist oder nicht.
Ein Prüfung des Inhalt über #if SYMBOL=WERT ist nicht möglich.
Daher vermute ich, dass Delphi Compileranweisungen in Funktionsaufrufen nicht kann.