Главная страницаОбратная связьКарта сайта

Повтор строки заданное количество раз

Автор: DiVo
WEB-сайт: http://delphibase.endimus.com

{ **** 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 := "ПриветПриветПривет";

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Повтор строки заданное количество раз", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info