| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Разбить несколько слов...

Антоний ©   (2005-09-05 13:09:00) 

Подскажите, как это сделать?
Вот есть строка, например:
"Мама мыла раму".
А надо это в МЕМО вывести так:
М
а
м
а

м
ы
л
а

р
а
м
у

---

Gydvin   (2005-09-05 13:41:00) [1]

или

const s:= 'Мама мыла раму'
var i: integer;
p:string;
begin
for I:=1 to Length(s) do
  p:=p+copy(s,i,1)+#13#10;
memo1.text:=p;
end;

---

КиТаЯц   (2005-09-05 13:14:00) [2]

Вроде так...
const s:= 'Мама мыла раму'
var i: integer;

begin
 for I:=1 to Length(s) do
   Memo.Lines.Add(S[i])
end;

---

Digitman   (2005-09-05 13:11:00) [3]

и какие проблемы ?

---

Наверх