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.