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

← →
RealDummy (2002-05-28 13:55) [0]

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

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

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

← →
MBo (2002-05-28 14: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;

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