Вниз
Скачать: CL | DM;

Как очистить 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;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c
1-18044
jenbbond
2002-05-25 08:54
2002.06.06
как можно передать переменную?


3-17841
Sewix
2002-05-16 15:43
2002.06.06
QReport отправить в Word


7-18169
Keymaster
2002-03-12 00:05
2002.06.06
Может не совсем в тему, но очень нужно


1-17921
MasterA
2002-05-25 08:16
2002.06.06
Бильярд


1-18014
SRGWizard
2002-05-24 11:34
2002.06.06
Не могу выполнить CreateOleObject в процедуре (class(TService))




   Наверх