|
Удаление лишних пробелов в строке (2)Удаление лишних пробелов в строке (2)
|
Code:
|
|
Function DeleteUselessSpaces(s:String):string;
begin
Repeat
Result:=s;
s:=StringReplace(Result,' ',' ',[rfReplaceAll]); //заменяем все двойные пробелы на одинарные
Until Result=s; //повторяем до тех пор пока есть двойные пробелы
end;
|
Статья Удаление лишних пробелов в строке (2) раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Текст и Строки ::
|
|
