Ausschluß von Free Pascal-spezifischem Code über IFDEF FPC

[mjustin]

In Delphi 2009 ist es mir nicht gelungen, über die Bedingung {$IFDEF FPC} den nachfolgenden Ausdruck {$IF FPC_FULLVERSION = 30000} vom Kompilieren auszuschliessen.

Der Delphi Compiler gibt "[DCC Error] Test.pas(2): E2026 Constant expression expected" aus.

Delphi-Quellcode:

{$IFDEF FPC}
 {$IF FPC_FULLVERSION = 30000}
   {$MESSAGE WARN 'Please use FPC 3.0.2'}
 {$IFEND}
{$ENDIF}

Die Warnung 'Please use FPC 3.0.2' soll nur beim Kompilieren mit Free Pascal 3.0.0 ausgegeben werden.

Anscheinend versucht der Delphi Compiler trotz des nicht erfüllten {$IFDEF FPC} die FPC-spezifische $IF Bedingung auszuwerten.

[himitsu]

Ich kann mich nicht erinnen, dass es in D2009 derartige Probleme gab.

Sicher, dass es nicht irgendwo ein entsprechendes DEFINE gibt?

Delphi-Quellcode:

{$IF Declared(FPC_FULLVERSION) and (FPC_FULLVERSION = 30000)}
  {$MESSAGE WARN 'Please use FPC 3.0.2'}
{$IFEND}

Aber k.A. ob FPC Defined und Declared kennt.

[mjustin]

Zitat von himitsu:

Ich kann mich nicht erinnen, dass es in D2009 derartige Probleme gab.

Sicher, dass es nicht irgendwo ein entsprechendes DEFINE gibt?

Delphi-Quellcode:

{$IF Declared(FPC_FULLVERSION) and (FPC_FULLVERSION = 30000)}
  {$MESSAGE WARN 'Please use FPC 3.0.2'}
{$IFEND}

Aber k.A. ob FPC Defined und Declared kennt.

Mit Defined statt Declared funktioniert es:

Delphi-Quellcode:

{$IF Defined(FPC_FULLVERSION) and (FPC_FULLVERSION = 30000)}
  {$MESSAGE WARN 'Please use FPC 3.0.2'}
{$IFEND}

Vielen Dank, schönen Sonntag noch!

[himitsu]

Dann funktioniert FPC aber nicht richtig?

So ist das seit mindestens Delphi 6.

Delphi-Quellcode:

{$IF Defined(XXX)} -> {$DEFINE XXX}
{$IF Declared(VVV)} -> const VVV = 30000;

[mjustin]

Zitat von himitsu:

Dann funktioniert FPC aber nicht richtig?

So ist das seit mindestens Delphi 6.

Delphi-Quellcode:

{$IF Defined(XXX)} -> {$DEFINE XXX}
{$IF Declared(VVV)} -> const VVV = 30000;

Müsste ich mir noch genauer ansehen

[mjustin]

Ich habe nun eine einfache und kürzere Lösung gefunden die ohne $IF auskommt:

Delphi-Quellcode:

{$IFDEF VER3_0_0}
  {$MESSAGE WARN 'Please use FPC 3.0.2'}
{$ENDIF}

Quelle: http://wiki.freepascal.org/Conditional_compilation/de