Форум: "Основная";
Поиск по всему сайту: 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.013 c
3-28434           Dreamer               2001-12-08 14:31  2002.01.10  
Есть процедура инициированная DataSource как ее вызвать


7-28546           Riman                 2001-06-01 09:33  2002.01.10  
Сканер штрих кода


3-28405           Desdechado            2001-12-05 16:09  2002.01.10  
IB по модемному каналу


1-28452           Lis                   2001-12-20 14:51  2002.01.10  
MemoryManager & MMX


3-28447           -=CrazyFish=-         2001-12-07 13:27  2002.01.10  
record / key deleted