Форум: "Основная";
Поиск по всему сайту: 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.017 c
1-28456           Serg5                 2001-12-21 19:36  2002.01.10  
Знатоки, подскажите. плиз, как запретить ввод любых значений в StringGrid, кроме первой колонки. Т.е. остальные попросту у меня предназначенны для отображения результата.


1-28454           Imelda                2001-12-21 17:00  2002.01.10  
Как «сжать» эти строки так чтобы они шли по порядку?


3-28433           kd                    2001-12-10 08:03  2002.01.10  
SQL


1-28471           XPatriot              2001-12-21 14:50  2002.01.10  
Работа с файлами.


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