Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Compilerschalter auslesbar?

  Alt 17. Sep 2009, 20:09
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
  Mit Zitat antworten Zitat