Посимвольное сравнение двух Memo

[iKarma]

Мне нужно сравнить 2 Memo на предмет наличия в них различий и подсчёта количества этих различий (под различиями я имею в виду отличаюиеся символы разумеется). Пока что написал такой вот вариант, но не проверял его на рабоспобность (т. е. не компилировал):

function MyFunc:integer;
var i:integer;
for i:=1 to Memo1.Lines.Count-1 do
begin
if Memo1.Lines[i]<>Memo2.Lines[i] then
i:=i+1;
Result:=i;

Не понимаю, как именно написать именно посимвольное сравнение - ведь тот пример, что я написал он идёт по строкам. Или возможно мне надо сохранить два Memo в текстовые файлы и уже их сравнивать, но тоже не знаю как. Поэтому прошу помощи =)

[Аватар]

Memo.Lines.Text - вся строка текста в Memo. Вот и сравнивайте по-символьно. Не понятен сам критерий сравнения - если позиционное сранение символов, то нет проблем. В противном случает - наверно их будет масса

[iKarma]

то есть если я верно понял, то

function MyFunc:integer;
var i:integer;
for i:=1 to Memo1.Lines.Count-1 do
begin
if Memo1.Lines.Text[i]<>Memo2.Lines.Text[i] then
i:=i+1;
Result:=i;

[Аватар]

А кто писал, что Memo1.Lines.Text - массив? Это строка со всем содержимым Memo. И длина ее Length(Memo1.Lines.Text)

[akaKolay]

попробуй так:

function Memo1Memo2(Memo1,Memo2:TMemo):integer;
var q1,q2,s1,s2:string;
    i,x,k:integer;
begin
q1:=''; q2:='';
for i:=0 to memo1.Lines.Count-1 do
 begin
  s1:=memo1.Lines[i];
  s2:=memo2.Lines[i];
  q1:=q1+s1;
  q2:=q2+s2;
 end;
x:=length(q1);
for i:=0 to x do
 if q1[i]<>q2[i] then k:=k+1;
Memo1Memo2:=k;
end;

а по нажатию кнопки пишешь:

 edit1.Text:=IntToStr(Memo1memo2(memo1,memo2));

21:28
еще насчет x во втором цикле он определяет длину только первой строки, но вторая может быть длиннее по этому лучше написать так чтобы он проверял длину и q1 и q2, а большее уже использовал в цикле

Бегом читать правила раздела, иначе я за себя не ручаюсь...
Уже 2 (условных пока) нарушения - неправильное оформление кода и флуд!
Модератор

[iKarma]

akaKolay, я так понимаю так нужно?

function Memo1Memo2(Memo1,Memo2:TMemo):integer;
var
  q1,q2,s1,s2:string;
  i,x1,x2,k:integer;
begin
  q1:='';
  q2:='';
  for i:=0 to memo1.Lines.Count-1 do
    begin
      s1:=memo1.Lines[i];
      s2:=memo2.Lines[i];
      q1:=q1+s1;
      q2:=q2+s2;
    end;
  x1:=length(q1);
  x2:=length(q2);
  if x1>x2 then
    begin
      for i:=0 to x1 do
        if q1[i]<>q2[i] then
          k:=k+1;
    end
  else
    begin
      for i:=0 to x2 do
        if q1[i]<>q2[i] then
          k:=k+1;
    end;
  Memo1Memo2:=k;
end;

А возможно ли дописать данный алгоритм для работы с учётом пробелов, то есть текст бы сравнивался от пробела до пробела, то есть сравнивались бы слова в тексте на предмет различий?

[akaKolay]

можно написать как ты написал, но можно еще так:

if length(q1)>length(q2) then x:=length(q1) else x:=length(q2);

так код меньше места занимает, а что насчет сравнивать слова в тексте, я не совсем тебя понял. Ты хочешь чтобы он брал так сказать первых слова и их сравнил, потом следующие два слова, которые находятся через пробел ну и т.д.?

[iKarma]

Сообщение от akaKolay

можно написать как ты написал, но можно еще так:

if length(q1)>length(q2) then x:=length(q1) else x:=length(q2);

так код меньше места занимает, а что насчет сравнивать слова в тексте, я не совсем тебя понял. Ты хочешь чтобы он брал так сказать первых слова и их сравнил, потом следующие два слова, которые находятся через пробел ну и т.д.?

Да, первое слово из первого мемо с первым словом из второго мемо, и так далее...

[akaKolay]

я не знаю как это сделать, но по моему этот код приемлем