Fórum Como verificar 2 valores iguais? #345921
12/09/2007
0
Olá pessoal,
Tenho 2 strings que recebem números aleatorios
exemplo:
Primeira := ´03´;
Segunda := ´38´;
Eu gostaria de fazer uma verificação nas 2 strings e pegar o valor repetido no exemplo acima ia ser o número 3;
Tenho 2 strings que recebem números aleatorios
exemplo:
Primeira := ´03´;
Segunda := ´38´;
Eu gostaria de fazer uma verificação nas 2 strings e pegar o valor repetido no exemplo acima ia ser o número 3;
Delphitotal
Curtir tópico
+ 0
Responder
Posts
12/09/2007
Raserafim
você pode faer assim:
var
Primeira, Segunda: string;
P, S: Byte;
begin
Primeira := ´03´;
Segunda := ´38´;
for P := 1 to Length(Primeira) do
for S := 1 to Length(Segunda) do
if Primeira[P] = Segunda[S] then
ShowMessage(Primeira[P]);
end;
Responder
Gostei + 0
12/09/2007
Delphitotal
Rapaz! quebrou um galho, perfeito o código. Funcionou perfeitamente!
Vlw...
Vlw...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)