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

Previous  Top  Next

    
 

 

Code:

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

 

©Drkb::00842