Повтор строки заданное количество раз
Input - строка для повторения, Rep - количество повторений
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 := 'ПриветПриветПривет'; |