Заполнение строки символами до определённой длины

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

Решением является создание функции, функционально похожей на функцию Clipper:

PadL(string, width, character)

function TfrmFunc.PadL(cVal: string; nWide: integer; cChr: char): string;
var
  i1, nStart: integer;
begin
  if length(cVal) < nWide then
  begin
    nStart:=length(cVal);
    for i1:=nStart to nWide-1 do
      cVal:=cChar+cVal;
  end;
  PadL:=cVal;
end;

Затем это может вызываться c любой строкой, которой вы хотите задать определенную длину. Пользуйтесь функцией также, как вы привыкли пользоваться прежней - PadL(A,length(B),'0'); Она имеет большую гибкость - возможно заполнение любым символом до необходимой длины (удобно для задания текстовых счетчиков с фиксированным количеством символов -- PadL(A,6,'0').

Функция PadL позволяет заполнить строку символами до определённой длины, используя любое символ для заполнения пробелов.

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

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

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