[TheBlackUnix]

Empezado por gatosoft

Pues si quieres seguir con tu metodología, tendrías que hacer una comparación por cada posición que tengas, de forma tal que obtendrías un producto cartesiano...

comparar posicion 1 con posicion 1
comparar posicion 1 con posicion 2
comparar posicion 1 con posicion 3
comparar posicion 1 con posicion 4
comparar posicion 2 con posicion 1
....

Lo cual no aconsejo, ya que para esto existen las estructuras como FOR o While...

Adicionalmente hay que tener en cuenta que las cadenas de texto en Pascal permiten acceder a cada uno de sus carcateres de forma individual, como si fuera un vector, asi:

Código Delphi [-]
Var
 CadenaDeTexto: String;
....
 CadenaDeTexto:='Hola';
 ShowMessage(CadenaDeTexto[1]) ; // lo cual mostraria un mensaje con la letra"H" (la primera posición es uno)

Según lo anterior, tu solución seria algo como:

Código Delphi [-]
  For i:= 1 to 4 do
   for j:= 1 to 4 do
      if Edit1.text○[i]=Edit2.text[j] then
          contadorderepetidos:= contadorderepetidos +1;

bye.

Gracias !!!! Pude resolver mi problema..