Удаление пробелов в начале строкиDelphi , Синтаксис , Текст и СтрокиУдаление пробелов в начале строки
Автор: Hastlero { **** UBPFD *********** by delphibase.endimus.com **** >> Удаление пробелов в начале строки Функция возвращает строку без пробелов в начале (если они были) Зависимости: Windows, SysUtils Автор: Hastlero Copyright: HasTler0 Дата: 8 февраля 2003 г. ***************************************************** } var i: Integer; begin if Length(str) = 0 then begin DelSpaces := str; Exit; end; for i := 1 to length(str) do begin if pos(' ', str) = 1 then delete(str, 1, 1) else begin DelSpaces := str; Break; end; end; end; Пример использования: Str := DelSpaces(Str); Статья Удаление пробелов в начале строки раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |