[John]

Вопрос: как из строки текста (в Memo) удалить все слова, равные введенному пользователем (в Edit)? Додумался только, как удалять буквы, которые встречаются в введенном слове из текста. А это не могу.

[Decoding]

В следующий раз думай лучше

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Edit1.Text, '', [rfReplaceAll, rfIgnoreCase] );
end;

[Aristarh Dark]

Вот немного попроще:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Text := StringReplace( Memo1.Lines.Text, Edit1.Text, '', [rfReplaceAll, rfIgnoreCase] );
end;

[John]

Большое спасибо!