Работа со строками

← →
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]

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

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