Utilizando o Operador IN
07/01/2006
0
pessoal, sei que posso utilizar o operador IN dessa forma:
Tudo bem aqui, agora, gostaria de saber se posso usar esse operador para trabalhar com Strings, tipo:
depois fazer uma checagem mais ou menos dessa forma.
Qualquer ajuda será bem vinda.
procedure TForm1.Letras(Letra : char); var Alfabeto : set of ´A´..´Z´; begin Alfabeto := [´A´..´Z´]; 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[1..5] of String; begin Nomes[1] := ´João´; Nomes[2] := ´Jones´; Nomes[3] := ´Jonas´; Nomes[4] := ´Tereza´; Nomes[5] := ´Natália´;
depois fazer uma checagem mais ou menos dessa forma.
if Texto in Nomes then
Qualquer ajuda será bem vinda.
Andrew
Curtir tópico
+ 0
Responder
Posts
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.
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
Clique aqui para fazer login e interagir na Comunidade :)