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?
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;