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;

[Uwe Raabe]

Zitat von DieDolly:

Delphi-Quellcode:

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

Das funktioniert aber nur mit Zahlen. Der Titel spricht aber von String.