Повтор строки заданное количество разDelphi , Синтаксис , Текст и СтрокиПовтор строки заданное количество раз
Автор: DiVo { **** UBPFD *********** by delphibase.endimus.com **** >> Повтор строки заданное количество раз Input - строка для повторения Rep - количество повторений Строка на выходе это входная строка повторенная Rep раз. Зависимости: Стандартные модули Автор: Ru, DiVo_Ru@rambler.ru, Одесса Copyright: DiVo 2002 creator Ru (по мотивам функции Str из Word Basic) Дата: 18 ноября 2002 г. ***************************************************** } function MulStr(Input: string; Rep: integer): string; var i: integer; begin for i := 0 to Rep - 1 do result := result + Input; end; Пример использования: s1 := 'Привет'; s := MulStr(s1, 3); // результат: s := 'ПриветПриветПривет'; Статья Повтор строки заданное количество раз раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |