Case AnsiIndexText -> Ergebnis verändern

[Sir Rufo]

Das sieht ja grausam aus ...

Warum nicht so

Delphi-Quellcode:

procedure foo;
begin
  ...
end;

procedure bar;
begin
  ...
end;

case AnsiIndexText( Wert, ['A', 'B', 'C'] ) of
  0 : 
    foo;
  1 : 
    if Z=1 then
      foo
    else
      bar;
  2 :
    begin
      foo;
      bar;
    end;
end;

Und wenn gar nichts mehr geht, dann gibt es noch das State-Pattern