Home » Tipps & Tricks » Object Pascal » Strings » Zeichen wiederholen
Zeichen wiederholen
Dies kannst Du mit Hilfe dieser Funktion machen:
function Replicate(ch: char; anzahl: integer): string; begin SetLength(Result,Anzahl); if Length(Result)>0 then FillChar(Result[1],Length(Result),ch); end;
Aufruf der Funktion:
Showmessage(Replicate('d',4));
In diesem Fall gibt die Funktion ‚dddd‘ zurück.