Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

**lxo**

Hallo,

ich möchte bei einer Case-Anweisung einen Compiler-Fehler bekommen wenn ein neues Element der Enumeration hinzugefügt wird.
Damit der Schritt zwingend ausprogrammiert wird.
Delphi gibt da nicht mal eine Warnung oder Hinweis aus.
Ich hab es auch schon versucht mit einer Hilfsvariable um die Warnung W1036 zu bekommen und die Warnung in dem Block dann als Fehler kennzeichnen.
Funktioniert aber leider nicht wie erwartet.

Hat jemand eine Idee wie man das lösen könnte?

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TEnum = ( t1, t2, t3);

var

  lEnum: TEnum;

  lEnumCheck: Boolean;

begin

  {$WARN USE_BEFORE_DEF ERROR}

  lEnum := t1;

  case lEnum of

    t1: lEnumCheck := True;    

    t2: lEnumCheck := True;    

//    t3: lCheck := True;

  end;

  if lEnumCheck then //Warnung ist hier wenn t3 auskommentiert ist bekomme aber keinen Fehler, wenn t3 wieder drin ist ist die Warnung ganz am Ende der Prozedur. Packe ich das {$WARN USE_BEFORE_DEF DEFAULT} nach dem end dann kriege ich in jedem Fall ein Fehler. 

  begin

  end;

  {$WARN USE_BEFORE_DEF DEFAULT}

end;

Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

Forumregeln