Comparar dos memos

[creus]

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.

[Neftali [Germán.Estévez]]

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
  ...

[creus]

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

[creus]

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

[Neftali [Germán.Estévez]]

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.

[creus]

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.