Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
shade_
0 / 0 / 0
Регистрация: 13.06.2014
Сообщений: 51
1

Сравнить 2 Memo на предмет наличия в них различий и подсчитать количество этих различий

27.02.2015, 22:16. Просмотров 350. Ответов 0
Метки нет (Все метки)

Клавиатурный тренажёр ввода текста. Вообщем есть Memo1 в который из текстового файла загружается текст, в Memo2 пользователь должен вводить загруженный текст, есть код, но он не правильно работает, а что нужно исправить я не могу понять, так как новичёк.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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;
Вот код того, что я вывожу в Edit, выводит бредовые цифры, непонятно откуда взятые. Помогите пожалуйста, сам ни как не разберусь.
Delphi
1
edit2.Text:= IntToStr(Memo1memo2(memo1,memo2));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2015, 22:16
Ответы с готовыми решениями:

Подсчитать количество строк в memo ??
Помогите. Необходимо подсчитать количество строк в memo и затем по одному...

Выделение цветом различий
Добрый день! Необходима помощь! Имеется две таблицы с одинаковыми столбцами,...

Сравнение mp3 файлов и нахождение различий
Собственно суть задачи - на вход подается два аудио файла в формате mp3 - это...

Сжатие и запись файлов с учётом различий в скорости дисков
Пишу многопоточный архиватор gz-шник(а точнее уже написал) с помощью...

Сравнение двух диапазонов и вывод различий на другой лист
Добрый день уважаемые форумчане! Нашёл в инете такой вот код: Option Explicit...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2015, 22:16

Сравнение двух таблиц, и заполнение третьей на основании различий
Добрый день, прошу помочь с кодом для MySQL. Есть 3 таблицы: NewData; OldDara;...

Сравнение двух csv файлов с созданием файла различий
Всем доброго дня и с наступающими праздниками! Случилась у меня такая задачка,...

Программа нахождения различий в файлах и проверки копии кодов
Кто может помочь? Нужна программа котора может проанализировав несколько файлов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru