Удаление пробелов в начале строки |
Previous Top Next |
Code: |
{ **** 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); |
©Drkb::00903
Изобретателям велосипеда посвящается:
TrimRight - удаляет пробелы в начале строки, в том числе и в юникодных строках
TrimLeft - удаляет пробелы в конце строки, в том числе и в юникодных строках
Trim - удаляет пробелы в начале и в коце строки, в том числе и в юникодных строках
©Drkb::00904
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)