Repeat a string: Difference between revisions
Content added Content deleted
Line 237: | Line 237: | ||
writefln(chars); |
writefln(chars); |
||
}</lang> |
}</lang> |
||
=={{header|Delphi}}== |
|||
Repeat a string |
|||
<lang Delphi> |
|||
function RepeatString(const s: string; count: cardinal): string; |
|||
var |
|||
i: Integer; |
|||
begin |
|||
for i := 1 to count do |
|||
Result := Result + s; |
|||
end; |
|||
Writeln(RepeatString('ha',5)); |
|||
</lang> |
|||
Repeat a character |
|||
<lang Delphi> |
|||
Writeln( StringOfChar('a',5) ); |
|||
</lang> |
|||
=={{header|E}}== |
=={{header|E}}== |