Compilerschalter auslesbar?

[DeddyH]

Moin,

ich steh gerade auf dem Schlauch. Ich möchte einen Compilerschalter (Rangechecks) temporär umstellen, diesen aber später wieder in den alten Zustand versetzen. Dazu müsste ich ja den alten Zustand erst einmal erfragen. Geht das überhaupt und wenn ja, wie? Ich meinte das in der Art

Delphi-Quellcode:

{$IF RANGECHECKS}
  {$DEFINE WAR_AN}
    {$RANGECHECKS OFF}
    //Hier der entsprechende Code
  {$IFDEF WAR_AN}
    {$RANGECHECKS ON}
  {$ENDIF}

[himitsu]

ja > [oh]$IFOPT[/oh] , aber das geht nur bei kompilerschaltern, welche aus einem Buchstaben mit + oder - bestehen

in deinem Fall geht das , da {$RANGECHECKS ON} = {$R+}

und du wirst es nicht glauben, aber rate mal, welches Beispiel die OH zu [oh]$IFOPT[/oh] hat?

Delphi-Quellcode:

{$IFOPT R+}
  Writeln('Mit Bereichsprüfung compiliert');
{$ENDIF}

[DeddyH]

Danke sehr.

[Hawkeye219]

Hallo Detlef,

ich habe mir zu diesem Zweck ein paar Include-Dateien angelegt:

Code:

Datei "R+.pas"

  {$ifopt R-}
    {$undef RangeCheckWasOn}
    {$R+}
  {$else}
    {$define RangeCheckWasOn}
  {$endif}

Datei "R-.pas"

  {$ifopt R+}
    {$define RangeCheckWasOn}
    {$R-}
  {$else}
    {$undef RangeCheckWasOn}
  {$endif}

Datei "R=.pas"

  {$ifdef RangeCheckWasOn}
    {$R+}
  {$else}
    {$R-}
  {$endif}

Die Dateien liegen in einem Bibliotheksverzeichnis und sind somit für alle Projekte verfügbar.

Anwendung:

Delphi-Quellcode:

{$I R+} // RangeCheck einschalten
...
{$I R=} // RangeCheck auf vorigen Zustand setzen

Das Konzept stammt noch aus den Zeiten von Turbo Pascal. Damals wurde der Schalter "=" allerdings noch direkt vom Compiler unterstützt, so dass der Umweg über die Include-Dateien nicht notwendig war.

Gruß Hawkeye

[DeddyH]

Auch Dir Danke, ich hab es jetzt so:

Delphi-Quellcode:

uses ...,
    {$IFOPT R+}
    {$DEFINE WAS_CHECKED}
    {$R-}
    {$ENDIF}UnitOhneBereichsprüfung
    {$IFDEF WAS_CHECKED}
    {$R+}
    {$ENDIF};

Ob ich da richtig gedacht habe, wird sich dann zeigen ;)

[himitsu]

Nicht ganz, diese Option ist nur unitintern, also dürfte dieses keine Auswirkungen auf die zwischenliegende Unit haben.

[DeddyH]

Da bin ich mir eben nicht sicher, ich hatte vorher vor dem Einbinden {$RANGECHECKS OFF} und dahinter dann wieder das Einschalten. Das hat funktioniert. Zur Gegenprobe die Schalter auskommentiert, und es kamen Fehlermeldungen. Also wieder entkommentiert und alles ist OK. Zufall?

[himitsu]

Ich hätte eher an Zufall gedacht, denn sonst könnte man doch die VCL neu kompilieren, nur indem man andere Optionen vor dem Einbinden setzt?

Es ist aber auch schlecht/garnicht erklärt welche Option nun von wo bis wo genau ihre Auswirkungen hat :?

[DeddyH]

Tja, ich weiß es auch nicht. Wenn es jetzt so funktioniert wie gedacht, bleibt es so, ansonsten muss ich mir etwas anderes überlegen.