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