FMX - Falsches Unit Format / $IFDEF

[Int3g3r]

Danke euch für die Hilfe!

Zitat von himitsu:

Delphi-Quellcode:

{$IFDEF MSWINDOWS}
{$IF Defined(MSWINDOWS)}

Bewirken diese zwei Zeilen nicht das selbe ? Was ist hier der Unterschied ?

Zitat von himitsu:

Bzw. im Header sollten die genutzten DEFINES enthalten sein

Werden die DEFINES nicht automatisch gesetzt ?
Kannst du mir ein Beispiel machen wie man diese setzt ?

Gruss Int3g3r

[Rollo62]

Zitat von Int3g3r:

Bewirken diese zwei Zeilen nicht das selbe ? Was ist hier der Unterschied ?

Im Prinzip ja,
aber $IF hat noch den Vorteil das es ein

{$ELSEIF Defined(ANDROID)} erlaubt.

So kann man dan eine Art case/switch aufbauen, was dann relativ übersichtlich ist.

[himitsu]

Ja, es gibt ein paar vordefinierte Compiler-DEFINEs und -Konstanten.
http://docwiki.embarcadero.com/RADSt...ation_(Delphi)
Aber man kann auch selbst Welche definieren.
DEBUG ist z.B. kein Define des Compilers, sondern kommt aus den Projektoptionen. Das findest in den "Bedingungen" (im Deutschen) des Debug-Profiles.
Und kanns auch global im Projekt Eingene dort einfügen, zusätzlich zu den DEFINE und UNDEF im Code.


Die Conditional-Statements haben ein paar Vorzeile, gegen über den einfachen IFDEF und IFNDEF ... erstmal übersieht man einfach das N , in der Mitte, gegenüber einem alleinstehenden NOT. Und man kann nicht jeweils nur "ein" DEFINE prüfen.

Vor allem das ELSE-IF und auch NOT, AND oder OR können genutzt werden.
Da kann man "echte" Konstanten (keine typisierten Konstanten), Typen und ein paar Compiler-Funktionen verwenden. Defined, Declared, SizeOf


z.B. {$IF not Declared(irgendwas)} für Ersatzcode einer Konstante, Funktion oder Typ.
oder {$IF CompilerVersion < 30.0} anstatt {$IFDEF VER290} und jeden einzelnen Vorfahren zu prüfen.

Stell dir mal vor du müsstest das nur nur mit mehrfach verschachtelten IFDEF/IFNDEF bauen. (Original-Code aus'm Delphi)

Delphi-Quellcode:

{$IFNDEF PC_MAPPED_EXCEPTIONS}
  {$IF defined(ANDROID)}
    {$DEFINE ZCX_BASED_EXCEPTIONS}
  {$ELSEIF defined(MACOS)}
    {$IF defined(CPUARM32)}
      {$DEFINE SJLJ_BASED_EXCEPTIONS}
    {$ELSEIF defined(CPUARM64)}
      {$DEFINE ZCX_BASED_EXCEPTIONS_MACOS}
    {$ELSEIF defined(CPUX64)}
      {$DEFINE ZCX_BASED_EXCEPTIONS_MACOS}
    {$ENDIF}
  {$ELSEIF defined(MSWINDOWS)}
    {$IFDEF EXTERNALLINKER}
      {$DEFINE ZCX_BASED_EXCEPTIONS}
    {$ELSE}
      {$IF defined(CPUX86)}
        {$DEFINE STACK_BASED_EXCEPTIONS}
      {$ELSEIF defined(CPUX64)}
        {$DEFINE TABLE_BASED_EXCEPTIONS}
      {$ELSE}
        {$MESSAGE ERROR 'Unknown platform'}
      {$ENDIF}
    {$ENDIF !EXTERNALLINKER}
  {$ELSEIF defined(LINUX)}
    {$IFDEF EXTERNALLINKER}
      {$DEFINE ZCX_BASED_EXCEPTIONS}
    {$ELSE}
      {$DEFINE PC_MAPPED_EXCEPTIONS}
    {$ENDIF}
  {$ELSE}
    {$MESSAGE ERROR 'Unknown platform'}
  {$ENDIF}
{$ENDIF !PC_MAPPED_EXCEPTIONS}

[haentschman]

Moin...

Zitat:

Ja, es gibt ein paar vordefinierte Compiler-DEFINEs und -Konstanten.

Klär mich mal auf... Was haben IFDEF´s mit dem Ablageort der DCU und dem Fehler zu tun?

[himitsu]

Wenn man die ändert, werden die nutzenden DCUs nicht neu kompiliert, wenn sie aus einer {$INCLUDE}, den Projektoptionen oder den Compiler-Parametern kommen.
Der Compiler erkennt keine Änderung in der DCU, gegenüber den PAS ... klar, da hat sich ja auch nichts verändert, in der PAS oder in abhängigen DCUs.

Würde eine Änderung an genutztem Compiler und DEFINES erkannt, dann wäre die DCU hier neu kompiliert worden und es gäbe keine Probleme, selbst wenn die DCUs für unterschiedliche Compiler/Options im selben Verzeichnis landen.

[TurboMagic]

Zitat von Int3g3r:

Werden die DEFINES nicht automatisch gesetzt ?
Kannst du mir ein Beispiel machen wie man diese setzt ?

Gruss Int3g3r

Naja, du kannst auch selber defines definieren:

Delphi-Quellcode:

{$DEFINE MeinTollesDefine}

...

{$IFDEF MeinTollesDefine}
DoSomething;
{$ELSE}
DoSomethingElse;
{$ENDIF}

Beliebt ist dann auch solche Defines in Include Dateien (Textdateien mit Endung .inc) zu stecken
und diese Include Dateien in den entsprechenden Units wie folgt inkludieren:

{$I MeinInclude.inc}

Erst ab da gilt dann, was im Include steht, das das quasi an der Stelle der Unit eingefügt wird.