Поиск слов в Memo

[Ol'KA]

Поставлена следующая задача. Есть список слов в ListBox (неопределенное количество). Надо эти слова найти в Memo (загружен текст). И вывести предложения с найденными словами например в RichEdit, но если слово встречается 2 раза в предложении, то это предложение выводить один раз. ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ!

[Ol'KA]

Сообщение от Ol'KA

Поставлена следующая задача. Есть список слов в ListBox (неопределенное количество). Надо эти слова найти в Memo (загружен текст). И вывести предложения с найденными словами например в RichEdit, но если слово встречается 2 раза в предложении, то это предложение выводить один раз. ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ!

программа нужна на Delphi

[whatever]

Ну если считать, что одна строка в мемо = одно предложение, то все просто:

procedure TForm1.Button1Click(Sender: TObject);
var
  id,i:integer;
  sub,s:string;
begin
  sub:=listbox1.Items.Strings[ListBox1.ItemIndex];
  for i:=0 to memo1.Lines.Count-1 do
    begin
      s:=memo1.Lines.Strings[i];
      if pos(sub,s)<>0 then
        richedit1.Lines.Add(s);
    end;
end;

Если нет, то читаем мемо посимвольно, пока символ<>'.', затем также проверяем полученное предложение.

[Serge_Bliznykov]

whatever, я не на 100% понял, какую TC в конечном итоге решает задачу, НО,
похоже, ему нужно перебрать все слова в ListBox...

Ol'KA, для перебора слов в LIstBox можете предложенный код взять в цикл:
for j:=0 to listbox1.Items.Count-1 do ....

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

[Ol'KA]

Спасибо вам за оказанную помощь.
На выходе должна получить автоматически построенный реферат по словам которые в ListBox.