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

Previous  Top  Next

    
 

 

Code:

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

 

©Drkb::00865