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

Материал из DRKB

Дополнение строки пробелами[править | править код]

{ **** 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;

// Дополняет строку пробелами справа до указанной длины.
function PADR(Src: string; Lg: Integer): string;
begin
  Result := Src;
  while Length(Result) < Lg do
    Result := Result + ' ';
end;

// Дополнение строки пробелами с обоих сторон до указанной длины
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);


Source: http://delphibase.endimus.com
ID: 00842