Дополнение строки пробеламиDelphi , Синтаксис , Текст и СтрокиДополнение строки пробелами
Автор: Anatoly Podgoretsky { **** 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 & pascal. Комментарии и вопросы:: 2011-04-20 19:50:20 :: re:Дополнение строки пробеламипользователь: Emilliane. Спасибо большое, очень полезная информация! Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |