Скачать: CL | DM;

Разбить несколько слов...   Найти похожие ветки 

← →
Антоний   (2005-09-05 13:09) [0]

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

м
ы
л
а

р
а
м
у

---

← →
Digitman ©   (2005-09-05 13:11) [1]

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

---

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

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

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

---

← →
Gydvin ©   (2005-09-05 13:41) [3]

или

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.051 c