Comparar String com Char

Question

Aqui na empresa estamos com um pequeno desafio.Temos uma string de tamanho 1. E precisamos verificar se nela existe �A� ou �R�.Um amigo mostrou uma solu��o:[code:1:d1cf22b16d]Pos(String, �A, R�) > ...

Osocram · Answer

se � uma string de tamanho 1 ent�o ou ela � A ou R ou qualquer outro, certo?
pq vc n�o pode comparar assim?

if string=�A� or string=�R� then

Aqui na empresa estamos com um pequeno desafio. Temos uma string de tamanho 1. E precisamos verificar se nela existe �A� ou �R�. Um amigo mostrou uma solu��o:

Pos(String, �A, R�) > 0

Achei interessante. Funciona, mas existe outra(s) maneira(s) de se verificar isso!? o delphi entende [b:5c94cfdc90]�A�[/b:5c94cfdc90] como um Char e n�o uma string.

.lg. · Answer

este � um que o pessoal aqui n�o quer fazer (rsrs). Ao todo s�o 14 letras que procuramos. Ficaria enorme  :o H� outra maneira al�m das 2 que temos at� agora!?.LG....

Osocram · Answer

ahhh Entendi.. achei que fosse apenas aquelas duas letras...
tenta assim

procedure TForm1.btnClick(Sender: TObject);
var
  Alfabeto : set of �A�..�Z�;
  letra    :string;
begin
  Alfabeto := [�A�,�R�,�Z�];

  letra := �B�;
  if letra[1] In Alfabeto then
    ShowMessage(Letra+� est� no alfabeto�)
  else
    ShowMessage(Letra+� n�o est� no alfabeto�);
end;

Veja que nesse caso tive q passra letra[1], e vc disse que � string de 1, mas se essa string estiver vazia vai dar erro ent�o tem q fazer uma prote��o antes.

flw.

este � um que o pessoal aqui n�o quer fazer (rsrs). Ao todo s�o 14 letras que procuramos. Ficaria enorme :o H� outra maneira al�m das 2 que temos at� agora!? .LG.

.lg. · Answer

3 maneiras distintas de se resolver, vou ver se com essa maneira tambem os �cabe�a-dura� daqui do servi�o querem aplicar. rsrs. :o

Se houver mais solu��es, ser�o todas bem vindas.
Mais uma vez, muito obrigado!!!

.LG.

Carlosrm · Answer

.lg.;Acho que estamos trocando seis por meia-d�zia, mas em todos casos veja isso:Poderia ser uma fun��o que verificasse a pertin�ncia:[code:1:f96a21f2c4]function ta_la_char(chartring : string): boolean;begin  result := pos(chartring, �ABCDEFGHIJKXYZ�) > 0;end;[/code:1:f96a21f2c4]Eu testei assim, no Delphi 7:[code:1:f96a21f2c4]procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin  if (ta_la_char(uppercase(key))) then     showmessage(�T� l� a letra �+uppercase(key)+� !�);end;)[/code:1:f96a21f2c4]carlosrm...

F�rum Comparar String com Char #371947