Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.10;
Скачать: CL | DM;

Вниз

Как «сжать» эти строки так чтобы они шли по порядку?   Найти похожие ветки 

 
Imelda   (2001-12-21 17:00) [0]

Скажем в Richedite есть пару строк, причем каждая строка не дописана до конца.
Как «сжать» эти строки так чтобы они шли по порядку одна за одной через пробел?
Например было:
A
A
A
Стало:
A A A


 
MBo ©   (2001-12-21 17:07) [1]

s:="";
for i:=0 to richedit1.lines.count-1 do
s:=s+richedit1.lines[i]+" ";
richedit1.lines.text:=s;


 
Imelda   (2001-12-21 19:07) [2]

неееееееееее, так не пойдет!
Сам попробуй напечатать:
1
2
3
4
5
А он, сволочь:
1 1 1 1 1
Какие есть вареанты?


 
MBo ©   (2001-12-21 20:18) [3]

Мадам, все проверено.
1 2 3 4 5
если получается 1 1 1..
то в цикле for что-то неправильно написано, причем не у меня.
Например, ...lines[0] вместо [i] даст такой результат
На всякий случай:
var s:string;
i:integer;


 
Юрий Зотов ©   (2001-12-21 20:26) [4]

Для Delphi 5 и выше есть более простой и быстрый способ.


with RichEdit1.Lines do
Text : = StringReplace(Text, #13#10, " ", rfReplaceAll);






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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
3-28443
PVR
2001-12-06 17:58
2002.01.10
Хочу записать звук с микрофона в фиелд


1-28450
grab
2001-12-21 18:21
2002.01.10
Текст из TEdit на одной форме в ячейки таблицы на другой форме


6-28514
maxi
2001-10-15 14:10
2002.01.10
Как правильно вызвать метод интерфейса на удаленном сервере СОМ ?


3-28411
dva
2001-12-08 00:27
2002.01.10
Vopros


3-28417
Ermaks
2001-12-09 00:36
2002.01.10
MS SQLDMO Type Library