Форум: "Основная";
Поиск по всему сайту: 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.75 MB
Время: 0.011 c