Zeichen wiederholen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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.