Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как очистить String от лишних пробелов и символов переноса строки


RealDummy ©   (2002-05-28 13:55:00) 

Помогите, пожалуйста!
Есть текст, помещённый в переменную типа String. Необходимо заменить:
1. Пробелы, идущие подряд, на 1 пробел.
2. Символы переноса строки, идущие подряд, на 1 символ переноса строки.
3. Символы переноса строки и пробелы, идущие подряд, на 1 символ переноса строки.
С пунктом 1 всё получилось, а вот с переносами строки почему-то проблемы.
Очень прошу помочь!


AFROLOV   (2002-05-28 14:00:00) [1]

Символы переноса строки - это скорее всего 2 символа chr(13)+chr(10). Находишь эту комбинацию если за ней сидет такая же то ее удаляешь.
А еще было бы не плохо привести код который не работает.


MBo   (2002-05-28 14:00:00) [2]

простой, но небыстрый метод
i:=pos(#13#10#13#10,s);
while i>0 do begin
delete(s,i,2);
i:=pos(#13#10#13#10,s);
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо