Utilizando o Operador IN

07/01/2006

pessoal, sei que posso utilizar o operador IN dessa forma:


procedure TForm1.Letras(Letra : char);
var
  Alfabeto : set of ´A´..´Z´;

begin
  Alfabeto := [´A´..´Z´&93;;

  if Letra In Alfabeto then

    ShowMessage(Letra + ´  é uma letra do Alfabeto!´)

  else

    ShowMessage(Letra + ´ Não é uma letra do alfabeto´);

end;



Tudo bem aqui, agora, gostaria de saber se posso usar esse operador para trabalhar com Strings, tipo:

var
 Nomes: Array&91;1..5&93; of String;
begin
 Nomes&91;1&93; := ´João´;
 Nomes&91;2&93; := ´Jones´; 
 Nomes&91;3&93; := ´Jonas´; 
 Nomes&91;4&93; := ´Tereza´;
 Nomes&91;5&93; := ´Natália´;


depois fazer uma checagem mais ou menos dessa forma.

 if Texto in Nomes then


Qualquer ajuda será bem vinda.


Andrew

Respostas

09/01/2006

Orpolonio

Veja o POS


Responder Citar

09/01/2006

Massuda

O [b:3b2ebebd8f]in[/b:3b2ebebd8f] só trabalha com conjuntos ([b:3b2ebebd8f]set[/b:3b2ebebd8f]).

Você pode, por exemplo, usar um loop para fazer uma busca linear no array ou usar um TStringList para armazenar as strings e usar o método TStringList.IndexOf para fazer a busca.


Responder Citar