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

Работа со строками   Найти похожие ветки 

← →
AlexLines   (2005-10-16 17:08) [0]

Уважаемые знатоки

Есть строка

Привет ! !   ! !  всем

Никак не могу решить, как в строке с неизвестным количеством восклицательных знаков удалить восклицательные знаки в середине и оставить только один с одним пробелом слева и справа:

Привет ! всем

Спасибо

---

← →
PZ   (2005-10-16 18:52) [1]

Придумал такую вот конструкцию:

 S := "Привет !  !! ! !! всем";
 while Pos(" ", S) > 0 do Delete(S, Pos(" ", S), 1);
 P1 := Pos("!", S);
 while Pos("!", S) > 0 do Delete(S, Pos("!", S), 1);
 Insert(" ! ", S, P1);

Впрочем, видимо, можно сделать как-то проще.

---

← →
wp2   (2005-10-16 19:07) [2]

Что значит людям нечего делать :-)

---

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

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



Память: 0.45 MB
Время: 0.042 c