iki memodaki iki texti karşılaştırma

[Kaptan]

Selamlar.
iki memo var.ikisinde de birinci karakterden başlayacak.her karakteri tek tek karşılaştıracak.farklı olduğunda o karakteri gösterecek.
for i:=1 to memo1.lines...(burda kaç karakter kodu ne olacak?)
memo1de ve memo2de i nolu karakteri seç.
memo1 ile memo2 yi karşılaştır.
eğer farklıysa farklı de ve yerini belirt.
türkçesini ben yazdım ama bi de delphicesi lazım:)
yardım edebilecek arkadaşlardan yardımlarını bekliyorum.
teşekkürler.

[Kaptan]

Kod: Tümünü seç

var
i:integer;
a,b:string;
begin
for i:=1 to 1500 do
Begin
a:=copy(memo1.Text,i,1);
b:=copy(memo2.Text,i,1);
if a<>b then
Begin
Showmessage('Farklı');

end;
end;
end;

gibi bi kodla biraz oldu gibi:)

[mucar]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  for  i:=1  to length(memo1.Lines.text)  do
  begin
  if memo1.lines.text[i]<>memo2.lines.text[i] then
  Showmessage('Farklı');
  end;
end;

şeklinde yapsanız daha sağlam olur

[Kaptan]

teşekkürler hocam