Дополнение строки пробелами
Материал из 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