Case AnsiIndexText -> Ergebnis verändern

[himitsu]

Oder vor dem CASE prüfen und da noch den Index ändern.

Delphi-Quellcode:

I := AnsiIndexText(Wert, ['A', 'B','C']);
if (I = 0) and (Z = 1) then I := 1;
case I of
  0: begin
  ...

Delphi-Quellcode:

if IfThen((UpperCase(Wert) = 'A') and (Z = 1), 1, AnsiIndexText(Wert, ['A', 'B','C'])) of
case I of
  0: begin
  ...