Direktiven auf Konstanten anwenden

[turboPASCAL]

Ja, warum nicht ?

Delphi-Quellcode:

const
{$IFDEF Bedingung}
  WasAuchImmer = True;
{$ELSEIF}
  WasAuchImmer = False;
{$ENDIF}

var
{$IFNDEF Bedingung} // ist nicht def. ... dann ...
  foo: Integer = 0815;
{$ENDIF}