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

← →
Антоний (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;

или

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;