String vorne mit Nullen auffüllen

[mytbo]

Wenn es keine fertige Funktion gibt, dann:

Delphi-Quellcode:

function FillStringLeft(const pmcSource: String; pmChar: Char; pmStrLen: Integer): String;
begin
  if Length(pmcSource) >= pmStrLen then
    Result := pmcSource
  else
    Result :=  Result.Create(pmChar, pmStrLen - Length(pmcSource)) + pmcSource;
end;

var
  sBelegNr: String;
begin
  sBelegNr := '12345';
  ShowMessage(FillStringLeft(sBelegNr, '0', 9));

Bis bald...
Thomas