Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

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


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);






Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.044 c
1-28479           ЙЦУЙУ                 2001-12-22 14:46  2002.01.10  
ПО МО Г И ТЕ


3-28422           andey                 2001-12-09 19:12  2002.01.10  
пересчет полей


1-28493           vbazik                2001-12-21 13:16  2002.01.10  
Помогите с графикой, please :-(


14-28528          Васильев П.           2001-11-09 23:01  2002.01.10  
Прибалтийцы и живущие в дальнем зарубежье!


4-28560           Di_wind               2001-11-08 19:24  2002.01.10  
EnumProcesses