Case Com Strings

[Progr'amador]

CASE COM STRINGS

uses StrUtils;
...
  case AnsiIndexStr(Str, ['String1', 'String2', 'String3']) of
    0 : // Str = 'String1'
    1 : // Str = 'String2'
    2 : // Str = 'String3'
    -1 : // Nenhuma das três strings acima
  end;

Abs. Progr'amador.

B)