Дополнение строки пробелами

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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Дополнение строки пробелами слева

Дополненяет строку слева пробелами до указанной длины

Зависимости: нет
Автор:       Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi
Copyright:
Дата:        26 апреля 2002 г.
***************************************************** }

function PADL(Src: string; Lg: Integer): string;
begin
  Result := Src;
  while Length(Result) < Lg do
    Result := ' ' + Result;
end;

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Дополнение строки пробелами справа

Дополняет строку пробелами справа до указанной длины.

Зависимости: нет
Автор:       Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi
Copyright:   Anatoly Podgoretsky
Дата:        26 апреля 2002 г.
***************************************************** }

function PADR(Src: string; Lg: Integer): string;
begin
  Result := Src;
  while Length(Result) < Lg do
    Result := Result + ' ';
end;

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Дополнение строки пробелами с обоих сторон

Дополнение строки пробелами с обоих сторон до указанной длины

Зависимости: нет
Автор:       Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi
Copyright:
Дата:        26 апреля 2002 г.
***************************************************** }

function PADC(Src: string; Lg: Integer): string;
begin
  Result := Src;
  while Length(Result) < Lg do
  begin
    Result := Result + ' ';
    if Length(Result) < Lg then
    begin
      Result := ' ' + Result;
    end;
  end;
end;

Пример использования:

S := PADL(S,32); 

Программный код на Delphi для добавления пробелов в строку с левой, правой или обеих сторон до достижения указанной длины.

Код состоит из трех функций:

1. PADL (Pad Left): добавляет пробелы слева от входной строки до достижения указанной длины.
2. PADR (Pad Right): добавляет пробелы справа от входной строки до достижения указанной длины.
3. PADC (Pad Center): добавляет пробелы с обеих сторон от входной строки до достижения указанной длины.

Код использует простой цикл while для повторного добавления пробелов слева, справа или с обеих сторон от входной строки до достижения желаемой длины.

Пример использования этих функций:

S := PADL('Hello', 32); // добавляет пробелы слева до достижения 32 символов

Вывод: " Hello"

Если вам нужно добавить пробелы с обеих сторон, вы можете использовать функцию PADC:

S := PADC('Hello', 32); // добавляет пробелы с обеих сторон до достижения 32 символов

Вывод: " Hello "

В целом, этот код полезен для форматирования строк в конкретный способ, что может быть особенно важно при работе с пользовательским вводом или отображением данных в GUI.

Альтернативное решение: Вместо использования циклов while для добавления пробелов, вы можете использовать функции PadLeft, PadRight и PadCenter, предоставляемые Delphi. Эти функции более компактны и эффективны:

function PADL(Src: string; Lg: Integer): string;
begin
  Result := Src.PadLeft(Lg);
end;

function PADR(Src: string; Lg: Integer): string;
begin
  Result := Src.PadRight(Lg);
end;

function PADC(Src: string; Lg: Integer): string;
begin
  Result := Src.PadCenter(Lg);
end;

Код достигает того же результата, что и оригинальный код, но более компактен и легко читаем.

Данная статья описывает три функции на языке Delphi для добавления пробелов в строке слева, справа или с обоих сторон до указанной длины.

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

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

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