Try Except Problem

[Bernhard Geyer]

Zitat von himitsu:

Ich hab es aufgegeben alle "Standards" selber nochmal zu setzen.

Wir bringen bei unseren Projekten einfach einen Compilerfehler wenn die (uralten) Compilerschalter falsch gesetzt sind.

[himitsu]

Jupp, das hab ich bei einigen Codes auch schon gemacht.

Leider gibt es IfOpt nur für die alten einbuchstabigen "+/-"-Optionen.


Einfach so umschalten und danach "zurückschalten" ist einfach nur falsch, vorallem wenn man sich vorher nicht den aktuellen Zustand merkt und danach "wirklich" wiederherstellt.
Leider fehlt auch noch eine Push/Pop-, bzw. Save/Restore-Möglichkeit, für die Compilerschalter.

Sowas wäre ja toll,

Delphi-Quellcode:

{$PUSH Options}  // oder {$PUSH Option X}
{$X+}
machwas;
{$POP Options}

bzw.

Delphi-Quellcode:

{$SAVEOPT X}
{$X+}
machwas;
{$RESTOREOPT X}

aber die Realität sähe etwa so aus

Delphi-Quellcode:

{$IFOPT X+} {$DEFINE _SaveX} {$ELSE} {$UNDEF _SaveX} {$ENDIF}
{$X+}
machwas;
{$IFNDEF _SaveX} {$X-} {$ENDIF}

denn

Delphi-Quellcode:

{$X+}
machwas;
{$X-}

wäre halt sowas von total falsch, wenn das X vorher schon aktiviert war und es danach nicht mehr ist.

[BUG]

Zitat von himitsu:

aber die Realität sähe etwa so aus
[DELPHI]{$IFOPT X+} {$DEFINE _SaveX} {$ELSE} {$UNDEF _SaveX} {$ENDIF}

Oder eben:

Delphi-Quellcode:

{$I StoreOptions}
{$X+}
// Zeug
{$I LoadOptions}

Die Includes müsste man nur einmal schreiben
Aber stimmt schon, ein richtiger eingebauter Optionsstack wäre natürlich besser.

[JamesTKirk]

Zitat von himitsu:

Einfach so umschalten und danach "zurückschalten" ist einfach nur falsch, vorallem wenn man sich vorher nicht den aktuellen Zustand merkt und danach "wirklich" wiederherstellt.
Leider fehlt auch noch eine Push/Pop-, bzw. Save/Restore-Möglichkeit, für die Compilerschalter.

Dann ist ja gut, dass bei diesem Thread Free Pascal drüber steht. Da geht das nämlich:

Delphi-Quellcode:

{$PUSH}
{$X+}
machwas;
{$POP}

Gruß,
Sven