|
#1
|
|||
|
|||
Слова и текст
Вопрос: как из строки текста (в Memo) удалить все слова, равные введенному пользователем (в Edit)? Додумался только, как удалять буквы, которые встречаются в введенном слове из текста. А это не могу.
|
#2
|
||||
|
||||
В следующий раз думай лучше
Код:
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; |
#3
|
||||
|
||||
Вот немного попроще:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Text := StringReplace( Memo1.Lines.Text, Edit1.Text, '', [rfReplaceAll, rfIgnoreCase] ); end; |
#4
|
|||
|
|||
Большое спасибо!
|