Разделить Memo1.Lines.Text на буквы

@reanimatoring · Регистрация: 19.01.2013

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

Хочу разделить текст в Memo на буквы, почему не работает такой вариант кода?

Delphi

procedure TForm1.Button8Click(Sender: TObject);
var
  i: integer;
  text: string;
  с: char;
begin
 
  text := Memo2.Lines.text;
  for i := 1 to Length(text) do
    с := text[i];
  Memo1.Lines.Add(с);
 
end;

@UR1004SWL · 14.11.2019, 01:01

Delphi

procedure TForm1.Button8Click(Sender: TObject);
var
  i: integer;
  text: string;
  с: char;
begin
  text := Memo2.Lines.text;
  for i := 1 to Length(text) do
  begin
    с := text[i];
    Memo1.Lines.Add(с);
 end;
end;

@D1973 · 14.11.2019, 05:05

reanimatoring, вот только Вы делите не на буквы, а на символы... В этом случае на отдельную строку в Мемо1 будут попадать знаки препинания, пробелы и всякие прочие переносы строк... Если Вас это устраивает - ну тогда и ладушки...

@reanimatoring · 14.11.2019, 22:22 **[ТС]**

char, мне так и надо было. Спасибо за заметку.

@D1973 Модератор 9246 / 6027 / 2376 Регистрация: 21.01.2014 Сообщений: 25,771 Записей в блоге: 3
	14.11.2019, 05:05	3
	reanimatoring, вот только Вы делите не на буквы, а на символы... В этом случае на отдельную строку в Мемо1 будут попадать знаки препинания, пробелы и всякие прочие переносы строк... Если Вас это устраивает - ну тогда и ладушки... 1

@reanimatoring 0 / 0 / 2 Регистрация: 19.01.2013 Сообщений: 79
	14.11.2019, 22:22 [ТС]	4
	char, мне так и надо было. Спасибо за заметку. 0

Разделить Memo1.Lines.Text на буквы

Решение