String mit gleichen Zeichen füllen z.B. s:='aaaaaaaa'

[Pr0g]

Weiß nicht, ob Delphi dafür eine Funktion bietet, sonst kannst du es mit Rekursion lösen:

Delphi-Quellcode:

function FillString(s, zeichen: String; count: Integer): String;
begin
  s := s + zeichen;
  if Length(s) < count then
    s := FillString(s, zeichen, count);
  Result := s;
end;

Um eine Variable bspw. mit 5 "a" zu füllen, würde der Aufruf so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := '';
  s := FillString(s, 'a', 5);
end;

MfG Pr0g