Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: 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 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
6-1119435580
Drema
2005-06-22 14:19
2005.10.16
Indy - idHTTP - прокси


11-1108113078
Alec
2005-02-11 12:11
2005.10.16
KOLEDB:MEMO поля


14-1127476705
Prohodil Mimo
2005-09-23 15:58
2005.10.16
Подскажите конфигурацию сервера


2-1126169729
ГрэйМ
2005-09-08 12:55
2005.10.16
Реестр XP...


1-1127307607
DelphiLexx
2005-09-21 17:00
2005.10.16
Избежать мерцания при перемещении