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

@Lala97 · Регистрация: 08.07.2016

Помогите пожалуйста с программой
исходный текст записан в мемо1
Нужно что бы каждая буква текста была записана через пробел и результат записать в мемо2

@Puporev · 08.07.2016, 22:01

Delphi

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

@Lala97 0 / 0 / 0 Регистрация: 08.07.2016 Сообщений: 6
		1
	Дан текст на русском языке: Записать его в разборку через пробел 08.07.2016, 21:52. Показов 1113. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с программой исходный текст записан в мемо1 Нужно что бы каждая буква текста была записана через пробел и результат записать в мемо2 0

Опции темы

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

Решение