Заполнение строки определенным символом до нужной длиныDelphi , Синтаксис , Текст и СтрокиЗаполнение строки определенным символом до нужной длины
Оформил: DeeCo function LeftPad(S: string; Ch: Char; Len: Integer): string; var RestLen: Integer; begin Result := S; RestLen := Len - Length(s); if RestLen < 1 then Exit; Result := S + StringOfChar(Ch, RestLen); end; function RightPad(S: string; Ch: Char; Len: Integer): string; var RestLen: Integer; begin Result := S; RestLen := Len - Length(s); if RestLen < 1 then Exit; Result := StringOfChar(Ch, RestLen) + S; end; {Beispiel / Example} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Rightpad(Edit2.Text, '-', 30); end; Статья Заполнение строки определенным символом до нужной длины раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |