Как сравнить 2 memo построчно, для поиска оригинальных строк

@Bovan · Регистрация: 22.08.2013

Author24 — интернет-сервис помощи студентам

Есть два мемо, первое - словарик, второе - слова, которые пользователи ввели на веб-странице(парсится и заносится в мемо6 поле) программа должна выбирать слова, которые есть в словаре, и которые еще не называли на странице. сделал рандомно, но когда в моем словаре нету уникальных слов, оно зацикливается и не выходит из цикла

Delphi

repeat
  q:=random(memo4.lines.count) ;
  find:=memo4.lines[q]; 
  until  Pos(FIND, Memo6.Lines.Text)=0

@northener · 08.07.2014, 14:52

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

когда в моем словаре нету уникальных слов, оно зацикливается и не выходит из цикла

И ничего с этим не сделаешь.

@Bovan · 08.07.2014, 18:42 **[ТС]**

ну просто не знаю как реализовать, если нету уникальных строк, то break цикла..

Добавлено через 47 минут
КорочЕ, сделал, но наверное можно и лучше))

Delphi

   For i:=0 to Memo4.Lines.Count-1 do // Запускаем цикл поиска строки
      begin
         tyy:=0 ;
  If Pos(memo4.lines[i], Memo6.Lines.Text)=0 then       tyy:=1
  else    tyy:=2   end;
 
 repeat
  q:=random(memo4.lines.count) ;
  d:=memo4.lines.count    ;
            find:=memo4.lines[q]; // Записываем в find текст из Edit
  if tyy=2 then   memo4.lines[q]:='';
 if tyy=2 then Break;
     until  Pos(FIND, Memo6.Lines.Text)=0  ;

Добавлено через 2 часа 40 минут
Короче ,работает, но теперь медленно думает. у меня процедура на таймерЕ, зависает секунд на 20, а потом одновременно 4 слова фигачит(

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	08.07.2014, 14:52	2
	Сообщение от Bovan когда в моем словаре нету уникальных слов, оно зацикливается и не выходит из цикла И ничего с этим не сделаешь. 1

	08.07.2014, 18:42