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