| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа со строками [D5, WinXP]
AlexLines © (2005-10-16 17:08:00)Уважаемые знатоки
Есть строка
Привет ! ! ! ! всем
Никак не могу решить, как в строке с неизвестным количеством восклицательных знаков удалить восклицательные знаки в середине и оставить только один с одним пробелом слева и справа:
Привет ! всем
Спасибо
wp2 (2005-10-16 19:07:00) [1]Что значит людям нечего делать :-)
PZ (2005-10-16 18:52:00) [2]Придумал такую вот конструкцию:
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);
Впрочем, видимо, можно сделать как-то проще.
| |
