8 lines
144 B
ObjectPascal
8 lines
144 B
ObjectPascal
|
function RepeatStr(const s: string; i: Cardinal): string;
|
||
|
|
begin
|
||
|
|
if i = 0 then
|
||
|
|
result := ''
|
||
|
|
else
|
||
|
|
result := s + RepeatStr(s, i-1)
|
||
|
|
end;
|