Форум: "Основная";
Поиск по всему сайту: 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.025 c
3-28404           Romul                 2001-12-07 13:16  2002.01.10  
Поле типа Boolean в DBF-файле


4-28563           Дремучий              2001-11-09 14:43  2002.01.10  
Все свободны. А Вас, Штирлиц, я попрошу задержаться.


1-28458           Aleksandr             2001-12-21 14:33  2002.01.10  
Как корректно уничтожить из дестрактора компоненты ScrollBar


1-28494           Man In Red            2001-12-22 21:08  2002.01.10  
Извините, но приходится еще раз задать этот вопрос, не получается все никак по нормальному сделать! Помогите пожалуйста!


3-28403           Скалли                2001-12-07 10:23  2002.01.10  
Редактирование поля типа Date (дата+время)