String vorne mit Nullen auffüllen

[Rolf Frei]

Das mit dem Fillchar und dem String war mir beim schreiben ganicht aufgefallen, ist aber natürlich korrekt. Fillchar darf hier nicht verwendet werden. Da gibt es eine andere Funktion "StringOfChar()" dafür:

Delphi-Quellcode:

function FillString(const AString: String; AChar: Char; ALength: integer): String;
var i:integer;
begin
  Result := StringOfChar(AChar, ALength);
  Result := copy(AString, 1, ALength) + copy(Result, ALength - Length(AString), ALength);
end;