Ne gute Alternative zur If Then Else Verzweigung???

[Dagon]

Die Syntax der If...Then...Else Anweisung ist so:

Delphi-Quellcode:

if Auswahlkriterium = Bereich1 then
  Anweisung1
else if Auswahlkriterium = Bereich2 then
  Anweisung2
...
else if Auswahlkriterium = BereichN then
  AnweiungN
[else
  else-Anweisung]

die der Case-Anweisung ist so:

Delphi-Quellcode:

case Auswahlkriterium of
  Bereich1: Anweisung1;
  Bereich2: Anweisung2;
  ...
  BereichN: AnweisungN;
end;