Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как из текста в мемо убрать Enter ?

Автор: Lence 29.11.2006, 10:18

Как можно в memo1.Lines.text убирать все символы ентера (конца строки) и заменять их на символы пробела ?
Как проходится по тексту находить символы и перезаменять - чтоб текст шел одной строкой.
Помоге примером, чтения и перезамены....
СпасибО!

Автор: Albinos_x 29.11.2006, 10:25

#13#10 - перевод каретки... ищи в тексте и меняй на пробел...

Автор: Rodman 29.11.2006, 10:34

Albinos_x, не находит!!!

Код


if(pos(Memo1.Text, sLineBreak)>0)then
   ShowMessage('Нашел'+IntToStr(pos(Memo1.Text, sLineBreak)));

ничиего у меня не вышло

Автор: Elfebet 29.11.2006, 10:36

memo1.Lines.text :=StringReplace(memo1.Lines.text, #13#10, ' ', [rfReplaceAll]);

Добавлено @ 10:38

Цитата

if(pos(Memo1.Text, sLineBreak)>0)then
ShowMessage('Нашел'+IntToStr(pos(Memo1.Text, sLineBreak)));

ничиего у меня не вышло

дык наоборот надо

Код


sLineBreak:=#13#10;
if(pos(sLineBreak, Memo1.Text)>0)then
   ShowMessage('Нашел'+IntToStr(pos(sLineBreak, Memo1.Text)));

Автор: Snowy 29.11.2006, 10:42

Код


s := StringReplace(Memo1.Text, #13#10, #32, [rfReplaceAll]);

Автор: Lence 29.11.2006, 10:42

Большое Всем спасибо !!!!!