Konstante in Konstante

[BerndS]

Case mit Strings geht doch über IndexStr bzw. IndexText.

Delphi-Quellcode:

      
  case IndexText(S, ['1', '2', '3']) of
        0:
          ...
        1:
          ...
        3:
          ...

      end;