Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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 для добавления пробелов в строке слева, справа или с обоих сторон до указанной длины.


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


:: 2011-04-20 19:50:20 :: re:Дополнение строки пробелами

пользователь: Emilliane.

Спасибо большое, очень полезная информация!


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-06-16 03:39:21/0.007490873336792/2