Дан текст на русском языке с разделителями. Записать его в разрядку через пробел

@Horizont · Регистрация: 09.07.2016

Помогите пожалуйста.
Текст записан в мемо1, надо записать измененный текст в мемо2.
Разделители - [' ','.',',',';',':','!']
Пример текста:
Мой дядя самых честных правил,
Когда не в шутку занемог.

Измененный:
М о й д я д я с а м ы х ч е с т н ы х п р а в и л,
К о г д а н е в ш у т к у з а н е м о г.

@Puporev · 09.07.2016, 19:57

Пример неудачный, из разделителей только пробелы.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const rz=[' ','.',',',';',':','!'];
var s:string;
    i:integer;
begin
s:=Edit1.Text;
for i:=length(s) downto 1 do
if s[i] in rz then delete(s,i,1);
for i:=length(s) downto 2 do
insert(' ',s,i);
Edit2.Text:=s;
end;

@Horizont · 09.07.2016, 20:08 **[ТС]**

Этот код заменяет вообще все разделители в тексте на пробел и если переделать под Memo то он ещё превращает в одну строку.
Если исправить на

Delphi

const rz=[' ','.',',',';',':','!'];
var s:string;
    i:integer;
begin
s:=Memo1.Text;
for i:=length(s) downto 1 do
if s[i] in rz then break;
for i:=length(s) downto 2 do
  insert(' ',s,i);
Memo2.Text:=s;
end;

то остаётся только проблема того, что ответ в Мемо2 записывается в одну строку, как это исправить?

@Puporev · 09.07.2016, 20:10

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

заменяет вообще все разделители в тексте на пробел

Так приведите нормальный пример, а то хрен знает что Вам нужно получить.

@HiredKiller · 09.07.2016, 20:15

совсем уже обнаглели
в чем проблема с кода который вам дали убрать ',' и проверять символ перевода строки?
или мозгов не хватает?

@Horizont · 09.07.2016, 20:20 **[ТС]**

Да действительно, пример плохой.Такой пример наверное получше будет:
Из:
это мой дядя:
Он,не читает книги.
Получить:
э т о м о й д я д я :
о н , н е ч и т а е т к н и г и .
Исходный текст в мемо1, а измененный в мемо2.

@Puporev · 09.07.2016, 20:23

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const rz=[' ','.',',',';',':','!'];
var s:string;
    i,j:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do
 begin
  s:=Memo1.Lines.Strings[i];
  for j:=length(s) downto 2 do
  insert(' ',s,j);
  Memo2.Lines.Add(s);
 end;
end;

@Horizont 0 / 0 / 0 Регистрация: 09.07.2016 Сообщений: 3
		1
	Дан текст на русском языке с разделителями. Записать его в разрядку через пробел 09.07.2016, 19:30. Показов 1211. Ответов 6 Метки нет (Все метки) Помогите пожалуйста. Текст записан в мемо1, надо записать измененный текст в мемо2. Разделители - [' ','.',',',';',':','!'] Пример текста: Мой дядя самых честных правил, Когда не в шутку занемог. Измененный: М о й д я д я с а м ы х ч е с т н ы х п р а в и л, К о г д а н е в ш у т к у з а н е м о г. 0

@Puporev Почетный модератор 64279 / 47578 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	09.07.2016, 20:10	4
	Сообщение от Horizont заменяет вообще все разделители в тексте на пробел Так приведите нормальный пример, а то хрен знает что Вам нужно получить. 0

@HiredKiller 82 / 82 / 39 Регистрация: 17.02.2016 Сообщений: 464
	09.07.2016, 20:15	5
	совсем уже обнаглели в чем проблема с кода который вам дали убрать ',' и проверять символ перевода строки? или мозгов не хватает? 0

@Horizont 0 / 0 / 0 Регистрация: 09.07.2016 Сообщений: 3
	09.07.2016, 20:20 [ТС]	6
	Да действительно, пример плохой.Такой пример наверное получше будет: Из: это мой дядя: Он,не читает книги. Получить: э т о м о й д я д я : о н , н е ч и т а е т к н и г и . Исходный текст в мемо1, а измененный в мемо2. 0

Опции темы

Дан текст на русском языке с разделителями. Записать его в разрядку через пробел

Решение