Case para Strings

[Vinicius Callegaro 0]

Estou fazendo a parte de reconhecimento de parâmetros do meu sistema, e gostaria de não precisar fazer if else if else. Seria apenas para manter um código mais limpo e claro. A solução seria um case, porém, case só aceita inteiros. Alguém sabe de algo que resolva isto?

Por exemplo:

 

var  Texto: String;begin  case texto of	'TESTE': ShowMessage('Foi encontrado o Teste');	'OUTRO': ShowMessage('Bla bla bla');  end;end;

[Hugo Slepicka 0]

I aew Vinicius... beleza???

 

bom, dando uma olhada na busca do fórum achei isso...

 

http://forum.imasters.com.br/index.php?showtopic=190419

 

 

veja se lhe ajuda...

[Vinicius Callegaro 0]

Boa Hugo! Resolveu meu problema ;)

 

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