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