Удаление лишних пробелов в строке (2)

Delphi , Синтаксис , Текст и Строки

Code:

Function DeleteUselessSpaces(s:String):string;

{®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

begin

Repeat

Result:=s;

    s:=StringReplace(Result,'  ',' ',[rfReplaceAll]); //заменяем все двойные пробелы на одинарные

Until Result=s; //повторяем до тех пор пока есть двойные пробелы

end;

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

В статье описывается функция на языке Delphi, удаляющая из строки все лишние пробелы и оставляющая только одиночные пробелы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Текст и Строки ::

Время компиляции файла: 2024-12-22 20:14:06
2025-04-04 05:52:15/0.0049409866333008/0