Code:

{ **** UBPFD *********** by delphibase.endimus ****

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

Input - строка для повторения

Rep - количество повторений

Строка на выходе это входная строка повторенная Rep раз.

Зависимости: Стандартные модули

Автор: Ru, DiVo_Ru @ rambler.ru, Одесса

Copyright: DiVo 2002 creator Ru (по мотивам функции Str из Word Basic)

***************************************************** }

function MulStr(Input: string; Rep: integer): string;

var

i: integer;

begin

for i := 0to Rep - 1do

result := result + Input;

end;

Пример использования:

s1 := 'Привет';

s := MulStr(s1, 3);

// результат:

s := 'ПриветПриветПривет';