String vorne mit Nullen auffüllen

[KodeZwerg]

Zitat von mytbo:

da ist dir ein Zuordnungsfehler bezüglich des Autors unterlaufen

Bekenne mich Schuldig im Sinne der Anklage

Zitat von himitsu:

Upss. (ein Zwerg)

Der Zwerg kann auch ohne Schleife

Delphi-Quellcode:

function FillString(const AString: AnsiString; const AChar: AnsiChar; const ALength: Integer): AnsiString;
var
  Len: Integer;
begin
  Len := ALength - Length(AString); // padding "berechnen"
  if (Len > 0) then // kurzer check
    begin
      SetLength(Result, ALength); // länge setzen
      FillChar(Result[1], Len, AChar); // padding einfügen
      Move(AString[1], Result[Succ(Len)], Length(AString)); // zusammenfügen
    end
    else
      Result := AString; // das original so belassen
end;

Rein historisch betrachtet ist es sehr schnell.
Ich bete das mir da kein Fehler unterlaufen ist