String vorne mit Nullen auffüllen

[KodeZwerg]

oder total oldschool:

Delphi-Quellcode:

function FillString(AString: String; AChar: Char; ALength: integer): String;
var i:integer;
  s: string;
begin
  if Length(AString) > ALength then
    Exit(AString);
  s := '';
  for i := 0 to Pred(ALength - Length(AString)) do
    s := s + AChar;
  Result := s + AString;
end;