As vezes temos um vetor(array) de strings, como por exemplo códigos contantes,
e precisamos recuperar a posição de um elemento dentro do vetor.
Para resolver este problema, no caso de strings, pode-se utilizar uma função
nativa do Delphi.
IndexStr ou IndexText
Sendo necessário declarar StrUtils na seção uses.
(System.StrUtils) em versões unicode.
Exemplo de uso:
1 2 3 4 5 6 7 8 9 10 11 12 | procedure TForm1.Button1Click(Sender: TObject); const DFeUF: array[0..26] of String = ('AC','AL','AP','AM','BA','CE','DF','ES','GO','MA','MT','MS','MG','PA', 'PB','PR','PE','PI','RJ','RN','RS','RO','RR','SC','SP','SE','TO'); begin ShowMessage( IntToStr( IndexStr('RS', DFeUF)) ); ShowMessage( IntToStr( IndexStr('SP', DFeUF)) ); ShowMessage( IntToStr( IndexStr('AC', DFeUF)) ); end; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
