Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

[DeddyH]

Wie wäre es mit einem ganz anderen Ansatz?

Delphi-Quellcode:

type
  TEnum = (t1, t2, t3);

const 
  EnumCheck: array[TEnum] of Boolean = (true, true, false);

Wenn jetzt TEnum um weitere Elemente erweitert wird, muss zwangsläufig auch die Konstante erweitert werden. Eine andere Möglichkeit wäre so etwas:

Delphi-Quellcode:

function EnumCheck(Value: TEnum): Boolean;
begin
  case Value of
    t1: Result := true;
    t2: Result := true;
    else
      raise EForgottenValue.Create('Hamwa nich was vergessen?');
  end;
end;