Como recuperar a posição de uma string dentro de um array de strings?

DAVID CANDIDO DA SILVA

DAVID CANDIDO DA SILVA Publicado 17/11/2017 


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:

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;
 

Voltar ao topo