Главная страница
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.028 c
3-1125570261
Term
2005-09-01 14:24
2005.10.16
Как произвести склейку поле в FB 1.5


6-1119417372
Progh
2005-06-22 09:16
2005.10.16
Как получить список всех IP адресов локальной сети


14-1127550430
WinXP
2005-09-24 12:27
2005.10.16
WinXp и рабочая группа


1-1127887104
OlegM
2005-09-28 09:58
2005.10.16
Не происходит смена курсора


14-1127245744
palva
2005-09-20 23:49
2005.10.16
А теперь зацените мои фотки