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

[Stevie]

Zitat von ims:

ob es allerdings mit DupeString() schneller geht...?

Urteile selbst...

Delphi-Quellcode:

function DupeString(const AText: string; ACount: Integer): string;
var
  P: PChar;
  C: Integer;
begin
  C := Length(AText);
  SetLength(Result, C * ACount);
  P := Pointer(Result);
  if P = nil then Exit;
  while ACount > 0 do
  begin
    Move(Pointer(AText)^, P^, C);
    Inc(P, C);
    Dec(ACount);
  end;
end;