Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: string inkrementieren

    Delphi
    by Namenloser, 5. Jun 2011
  Darf ich auch noch mal? :stupid:
  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, ResultLength-Length(Zahl), PadChar);