Из строки исключить все вхождения "работа", а после каждого пробела вставить слово "отдых"

@Zab · Регистрация: 04.01.2015

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста.
Из строки исключить все вхождения <работа>, а после каждого пробела вставить слово <отдых>.

@volvo · 05.01.2015, 17:37

Pascal

uses ..., strutils; // добавить этот модуль
 
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
  s := 'раз работа два работа не волк в лес не убежит';
  s := StringReplace(StringReplace(s, 'работа', '', [rfReplaceAll, rfIgnoreCase]),
    ' ', ' отдых ', [rfReplaceAll]);
  ShowMessage(s);
end;

@Zab · 05.01.2015, 17:50 **[ТС]**

volvo, спасибо)

@Zab 1 / 1 / 0 Регистрация: 04.01.2015 Сообщений: 15
		1
	Из строки исключить все вхождения "работа", а после каждого пробела вставить слово "отдых" 05.01.2015, 16:40. Показов 1412. Ответов 2 Метки нет (Все метки) Помогите пожалуйста. Из строки исключить все вхождения <работа>, а после каждого пробела вставить слово <отдых>. 0

@Zab 1 / 1 / 0 Регистрация: 04.01.2015 Сообщений: 15
	05.01.2015, 17:50 [ТС]	3
	volvo, спасибо) 0

Из строки исключить все вхождения "работа", а после каждого пробела вставить слово "отдых"

Решение