Windev

[himitsu]

Zitat von Alfredo:

Doch: Case mit Strings

Delphi-Quellcode:

Case AnsiIndexText(S, ['Str1', 'Str2', 'Str3']) of
  0: {Str1};
  1: {Str2};
  2: {Str3};
End;