Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
ВнизРазбить несколько слов... Найти похожие ветки
← →
Антоний (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.035 c