Поиск совпадающих ЦИФР в Memo! (не путать с поиском строк!)

[NiKiToZZ-]

Есть поле Memo.В нем много строк. И в строках есть цифры которых мне надо отыскать по паре. Тоесть допустим информация в виде:

лялдялдялда242рпавы
лялялялялял12341аляля
242ляляляляля

и мне нужно чтобы подсветились строчки, 1 и 3, т.к в них совпадающее значение 242. Но! Недопустимо чтобы он выдавал совпадения букв. Это возможно осуществить?

[veniside]

Нет, это невозможно! Может быть, лет через 20-30 компьютеры станут достаточно мощными, чтобы справиться с такой огромной работой, а пока забудьте.

З.Ы. regexp() и вперед, в чём вопрос?

[vovk]

Мне кажется можно вполне, только не слишком быстро если много строк,
Сейчас освобожусь попробую реализовать.

Хотя, погодите, многовато чтото, может както ограничить условие?
Допустим найти строки содержашие цифры совпадающие с цифрами в выделенной строке?

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
var i, am, c, q1: integer;
begin
  q1:=GetTickCount;
  c:=Memo1.Lines.Count-1;
  Label6.Caption:=IntToStr(c);
  am:=0;
  for i:=0 to c do
    Begin
      if Pos(Edit1.Text, Memo1.Lines[i])<>0 then
        Begin
          // Найдено, делаем что-то
          Inc(am);
        End;
    end;
  Label4.Caption:=IntToStr(GetTickCount-q1)+' ms';
  Label2.Caption:=IntToStr(am);
end;

[veniside]

Если в каждой строке может быть только одно число, то можно вобще просто сделать:

1) формируем новый список на основе имеющегося, в нём выбрасываем все не цифры.
2) запоминаем оригинальные номера строк (через Values[] или Objects[], не так важно)
3) сортируем новый список

Всё, пары, тройки и так далее будут идти друг за другом в новом списке. Соответствие номерам строк в оригинальном списке получим через Values[]/Objects[], которые заполнили на втором шаге.

[veniside]

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

Pos(Edit1.Text, Memo1.Lines[i])

ну, это читерство ) А если Edit1.Text некому заполнить?

[AlDelta]

Сообщение от NiKiToZZ-

и мне нужно чтобы подсветились строчки, 1 и 3, т.к в них совпадающее значение 242.

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

ну, это читерство ) А если Edit1.Text некому заполнить?

.....
var str:string;
.....
str:='242';
.....
Pos(str, Memo1.Lines[i])
.....

[vovk]

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

Если в каждой строке может быть только одно число, то можно вобще просто сделать:

1) формируем новый список на основе имеющегося, в нём выбрасываем все не цифры.
2) запоминаем оригинальные номера строк (через Values[] или Objects[], не так важно)
3) сортируем новый список

Всё, пары, тройки и так далее будут идти друг за другом в новом списке. Соответствие номерам строк в оригинальном списке получим через Values[]/Objects[], которые заполнили на втором шаге.

Я примерно так и хотел сделать.
только потом подумал как быть с выделением, и немного передумал, а на счёт сортировки первоисточника чтото не подумал.

[veniside]

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

.....
var str:string;
.....
str:='242';
.....
Pos(str, Memo1.Lines[i])
.....

Спасибо, это ещё хуже ) Сильно сомневаюсь, что ТС так уж влюблён в число 242. Гораздо вероятней задача состоит в нахождении совпадений любых числел.

[AlDelta]

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

Спасибо, это ещё хуже ) Сильно сомневаюсь, что ТС так уж влюблён в число 242. Гораздо вероятней задача состоит в нахождении совпадений любых числел.

Тогда, наверное, ТС сам не смог определить какие строки надо подсвечивать... Потому что:

Сообщение от NiKiToZZ-

лялдялдялда242рпавы
лялялялялял12341аляля
242ляляляляля

но:

Сообщение от NiKiToZZ-

и мне нужно чтобы подсветились строчки, 1 и 3, т.к в них совпадающее значение 242.