string inkrementieren

[Namenloser]

Darf ich auch noch mal?

Delphi-Quellcode:

function PadLeft(const S: AnsiString; const ResultLength: integer; const PadChar: AnsiChar = '0'): AnsiString;
begin
  if ResultLength <= 0 then
    Result := ''
  else
  begin
    SetLength(Result, ResultLength);
    if Length(S) < ResultLength then
      FillChar(Result[1], ResultLength-Length(Zahl), PadChar);
    if Length(S) > 0 then
      Move(S[1], Result[ResultLength-Length(Zahl)+1], Length(S));
  end;
end;