Como verificar 2 valores iguais?

Delphi

12/09/2007

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;


Delphitotal

Delphitotal

Curtidas 0

Respostas

Raserafim

Raserafim

12/09/2007

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;



GOSTEI 0
Delphitotal

Delphitotal

12/09/2007

Rapaz! quebrou um galho, perfeito o código. Funcionou perfeitamente!
Vlw...


GOSTEI 0
POSTAR