String vorne mit Nullen auffüllen

[DieDolly]

Weiß nicht mehr woher ich das habe, aber hier ein Einzeiler

Delphi-Quellcode:

function AddLeadingZeroes(const aNumber, aFinalLength: Integer): string;
begin
 Result := System.SysUtils.Format('%.*d', [aFinalLength, aNumber]);
end;