Mehrere IFDEF und ELSE hintereinander

[Andreas13]

Z.B. so:

Delphi-Quellcode:

  {$ifdef VER1}
    {$undef  J_OPT}
    {$ifndef VER1_0}
      {FPC 1.9.x}
      {$define StrictLong}
    {$else}
      {$define LoadArgs}
    {$endif}
  {$endif}

Gruß, Andreas

[bcvs]

Da fehlt ein {$ENDIF}. Jedes {$IFDEF} braucht ein {$ENDIF}

Delphi-Quellcode:

{$IFDEF CONDITION_0}
  A: string = //
  {$IFDEF IS_A} 'A' {$ELSE} //
  {$IFDEF IS_B} 'B' {$ELSE} //
  {$IFDEF IS_C} 'C' {$ELSE} //
   'ELSE' {$ENDIF}
   {$ENDIF}
   {$ENDIF}; //

{$ENDIF}

[Rollo62]

Oder so

Delphi-Quellcode:

{$IF IS_A}
{$ELSEIF IS_B}
{$ELSEIF IS_C}
{$IFEND}

http://docwiki.embarcadero.com/RADSt...LSEIF_(Delphi)

Es geht aber auch mit $ENDIF am Ende.
http://docwiki.embarcadero.com/RADSt...IFEND_(Delphi)

Was die Frage aufwirft, wozu der Quatsch mit IfEnd und EndIf, warum sollte der Kompiler nicht immer Beide nehmen können.

[himitsu]

Stimmt nicht ganz.
IFDEF und IF kann nicht "einfach" so getauscht werden.

IFDEF prüft ob der "Name" definiert ist,
aber IF prüft, ob die Condition True ergibt.

Aber {$IFDEF XYZ} = {$IF Defined(XYZ)} .
Für IF gibt nicht nur ein ELSE, sondern auch auch das ELSEIF
und man kann auch ganz nett mit OR, AND und Co. arbeiten.


Achtung:
IFDEF + ENDIF
IF + IFEND
aber, inzwischen kam wer auf die saublöde Idee ENDIF und IFEND gleich zu behandeln (vor paar Versionen) und am Ende nur noch IFEND zu erlauben,
aber gleichzeitig das nur im Compiler zu machen, anstatt es auch dem Error-Insight zu sagen.
Mit dem Ergebnis dass "Verwenden von Bedingungen für die Compiler-Version"
im http://docwiki.embarcadero.com/RADSt...ierung_(Delphi) komplett ad absurdum geführt wird.

[Rollo62]

Gut aufgepasst
Ich dachte das wäre klar, habs nur schnell hingeschrieben ...

Ich sehe bis jetzt keinen wirklichen Grund warum ifend und endif nicht das gleiche sein sollte.
Der Compiler könnte alle Fälle wunderbar separieren und auflösen.

Wahrscheinlich hat jemand gedacht man sollte das "neue" von dem "alten" unterscheiden können,
aus meiner Sicht würde es sowieso immer perfekt zusammenpassen.

Delphi-Quellcode:

// Start mit
{$IF}  // oder
{$IFDEF}  

//elseif kam mal dazu
{$ELSEIF}  

// final catchall für dem Rest
{$ELSE}  

//end, who cares
{$ENDIF}  
{$IFEND}

[himitsu]

Ja, das war auch Absicht, mit dem Unterscheiden.

Delphi hatte sich früher mal gerühmt so extrem abwertskompatibel zu sein, aber das war einmal,
und da war es gut, das man für Compiler bis Delphi 5 ein $IF im $IFDEF verstecken kann, weil er das noch nicht kennt.

Delphi-Quellcode:

{$IFDEF ConditionalExpressions}  // das springt bis zum nächsten $IFEND bzw. $ELSE
  {$IF xxxx}

  {$IFEND}  // heißt anders, damit $IFDEF es nicht als sein Ende erkennt
{$ELSE}
  ...
{$IFEND}

Delphi-Quellcode:

const abc = 13;

{$IF abc > 10}
oder
{$IF (abc > 10) and (abc < 15)}

Delphi-Quellcode:

{$IFNDEF VER150}  // hier wird es Spaß sich eine INC zu besorgen, um Versionen besser zu prüfen, was gern knallt, wenn man diese INC auf eine zu neue Delphi-Version los lässt
gegen
{$IF CompilerVersion < 15.0}

Oder ein lustiger Code für die Größenprüfung. (ja, zu Zeiten von 16 Bit gab es das $IF noch nicht)

Delphi-Quellcode:

{$IF SizeOf(Integer) = 2}
  {MESSAGE Hint '16 Bit'}
{$ELSEIF Declared(NativeInt) and (SizeOf(NativeInt) = 4)}
  {MESSAGE Hint '32 Bit'}
{$ELSEIF Declared(NativeInt) and (SizeOf(NativeInt) = 8)}
  {MESSAGE Hint '64 Bit'}
{$ELSEIF Declared(NativeInt)}
  {MESSAGE Hint 'gibt es endlich 128 Bit?'}
{$ELSE}
  {MESSAGE Hint '32 Bit, bevor der Mist mit dem "neuen" Integer erfunden wurde'}
{$IFEND}

[Rollo62]

Ja wenn DAS der Grund war.
Dann wäre ich gerne dafür mal alte Zöpfe abzuschneiden.

Es ist ja per Default auf beide Varianten eingestellt, meine ich.
Daher ist es auch OK, aber das man über solche Dinge überhaupt nachdenken muss ist schon Schade.

[himitsu]

Zitat von Rollo62:

Vielleicht stehe ich ja gerade auf dem Schlauch, oder habe einen Bug im Error-Insight gefunden.
Jedenfalls sehe ich Error-Insight und Warnings immer bei IFEND,

Vermutlich ignoriert beachtet es diese Option einfach nicht.

Ja, weil die welche da am Compiler rumfummeln scheinbar nie mit denen reden, welche am Error-Insight rumpfuschen.

Zitat von himitsu:

aber gleichzeitig das nur im Compiler zu machen, anstatt es auch dem Error-Insight zu sagen.

Ändere einfach den Code so, dass er eigentlich falsch cool und modern ist, (abwärtskompatibel ist das dann aber nicht mehr)
oder deaktiviere es ganz.


Tja, sowas merken viele nicht mehr, weil sie nach all den Jahren der Pein, genervt das Error-Insigts immer sofort deaktivieren, sobald Delphi installiert wurde.

[TurboMagic]

Naja, seit 10.4.0 sollte das ja kein Problem mehr sein, da hier ja auch ErrorInsight vom Compiler
zur Verfügung gestellt wird. Auchn wenn noch nicht immer alles 100% rund läuft funktioniert es
doch schon wesentlich besser als früher!

[himitsu]

Es werden sogar Hints und Warnings unterstichen.

Nur links im Icon fehlt immernoch der Hint.