Поиск по Memo

[photozaz]

В Memo1 дан текс, отсортировать в Memo2 все предложения, в которых слово повторяется хотябы 1 раз . Помоги пожалуйста, это срочно..

[Ulagay700]

Смотришь все строки Memo1.lines[i] от нуля до конца (пока пустые не попрут).
В них обычным способом ищешь подстроки.
Делов то...

[vitalik007]

1.Ищешь точку.
2.Отсекаешь предложение
3.Проверяешь наличие слова в нем
4.если слово есть то это предлажение записываешь в мемо2

[ReacXX]

А если тебе очень надо можеш сделать в RichEdit и когда он найдет тебе текст выделиш красным - это уже синтаксис, можеш в поиске найти подсветка текста

[photozaz]

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

3.Проверяешь наличие слова в нем

Так дело в том, что слово не задано и надо проверить каждое.. А как это сделать, если можно, то напишите кусок кода именно для этого момента..

[VVM]

procedure TForm1.FormShow(Sender: TObject);
var
  I: Integer;
begin
  with Memo1.Lines do
    for I := 0 to Count - 1 do
      if Pos('искомое слово', Strings[i]) <> 0 then
        ShowMessage(Strings[i]);
end;