Repeat a string: Difference between revisions
Content deleted Content added
Line 237:
writefln(chars);
}</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}}==
|