Comparar caracteres de dos memos
 

Me gustaria poder comparar caracter a caracter textos iguales en diferentes MEMOS.
Las lineas de texto soy capaz de contabilizarlas, Memo.Lines.Count, pero los caracteres no.


Gracias por la ayuda.

Para contar cuantas líneas, como bien dices, puedes utilizar Memo.Lines.Count, para acceder a cada línea usa Memo.Lines[i]; Para comparar cadenas tienes funciones como AnsiCompareStr y AnsiCompareText y si quieres acceder a los caracteres de una cadena puedes hacerlo como Str[i]; Por ejemplo:

Código Delphi [-]
  linea := Memo1.Lines[1];
  ch := linea[1];  // primer caracter
  ch := linea[2];  // segundo caracter
  ...

Gracias Neftali, vamos a ver si puedo solucionar el problema con tu ayuda.

Comparar dos memos
 

Estoy intentando hacer una comparacion de dos memos para saber que caracteres de los dos son diferentes y asi contabilizar los errores que hay.

ej: Memo1 Santiago
Memo2 Santiugo

error= 1


Mi código,

for index1:=0 to iTotalCaracterMemo1 do
begin
for index2:=0 to iTotalCaracterMemo2 do
begin
if (Memo2.Text[index2]=Memo1.Text[index1]then
begin
cont:=cont+1;
end;
end;
end;


Gracias a todos

No habras nuevos hilos para continuar con un tema que ya tienes abierto.
Revisa la Guía de estilo de los foros.
Y otra cosa, con 40 mensajes en los foros ya no eres un novato; Tal vez estaría bien que utilizaras TAGs cuando escribas código delphi.

NOTA: Borro este hilo nuevo y continua en el anterior.

Espero que asi este mejor.

Código Delphi [-]
for index1:=0 to iTotalCaracterMemo1 do
begin
for index2:=0 to iTotalCaracterMemo2 do
begin
if (Memo2.Text[index2]=Memo1.Text[index1]then
begin
cont:=cont+1;
end else
begin
   conterror:=conterror+1;
end;
end;

No logro que me contabilice ni los caracteres iguales, ni los diferentes.
Son 40 mensajes pero aun voy perdido, como puedes observar.