Удаление пробелов в начале строки

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

Автор: Hastlero
WEB-сайт: http://delphibase.endimus.com

{ **** 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, которая удаляет пробелы из начала строки, если они есть.

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

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

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