string inkrementieren

[Coffeecoder]

Zitat von mleyen:

..

Delphi-Quellcode:

procedure incBCStr(var AStr: string);
var
  i, l: Integer;
begin
  l := Length(AStr);
  AStr := IntToStr(StrToInt64(AStr)+1);
  for i := Length(AStr) to l-1 do
    AStr := '0' + AStr;
end;

Ja meine geht auch in die Richtung. Ich poste sie dann heute abend.

[blackfin]

Ich habe dafür eine Funktion, die str_pad von php nachbildet.
Dabei gibt man an, auf wieviel Zeichen der String aufgefüllt werden soll (pad_size), mit welcher zeichenfolge aufgefüllt werden soll(pad_string) und dann noch, ob links oder rechts aufgefüllt werden soll (pad_type 0/1)

Delphi-Quellcode:

// pad a string to pad_size with pad_string characters (php-like)
function str_pad(const Input : string; 
                 pad_size : integer; 
                 const pad_string : string = '0'; 
                 const pad_type : Integer = 0) : string ;
var
  i : integer;
  dif : Integer ;
  c: char ;
begin
  Result := Input;
  if Length(Input) < pad_size then
  begin
    dif := pad_size - Length(Input) ;
    SetLength(Result,pad_size) ;

    case pad_type of

        // STR_PAD_LEFT
        0:
          begin
             for i := 1 to dif do
             begin
                 if i <= Length(pad_string) then c := pad_string[i]
                 else c := pad_string[Length(pad_string)] ;
                 Result[i] := c ;
             end;

             try
               for i := dif+1 to pad_size do Result[i] := Input[i-dif] ;
             except
             end;
          end;

        // STR_PAD_RIGHT
        1:
          begin
             for i := Length(Input)+1 to pad_size do
             begin
                 if i-dif <= Length(pad_string) then c := pad_string[i-dif]
                 else c := pad_string[Length(pad_string)] ;
                 Result[i] := c ;
             end;

             try
               for i := 1 to dif do Result[i] := Input[i] ;
             except
             end;
          end;
    end;

  end;
end;

[schlecki]

Zitat von blackfin:

Delphi-Quellcode:

// pad a string to pad_size with pad_string characters (php-like)
function str_pad(const Input : string; 
                 pad_size : integer; 
                 const pad_string : string = '0'; 
                 const pad_type : Integer = 0) : string ;

Sowas wie pad_type als Integer versuche ich immer zu vermeiden.

Lesbarer finde ich sowas:

Delphi-Quellcode:

type
  TPadType = (ptPadLeft, ptPadRight);

function str_pad(const Input: string; 
                 pad_size: Integer; 
                 const pad_string: string = '0'; 
                 const pad_type: TPadType = ptPadLeft): string;

Das versteht man auch in 100 Jahren noch, ohne nachschlagen zu müssen, was welcher Wert für pad_type bedeutet.

[himitsu]

Inkrementiert die Zahl in dem String und verändert nicht deren Länge.
Macht einfach genau das, was man in Mahte mal gelernt hat, wenn man eine Zahl um 1 erhöhen muß.

Delphi-Quellcode:

function StrInc(const Number: String): String;
var
  i: Integer;
begin
  Result := Number;
  i := Length(Result);
  while (i > 0) and (Result[i] in ['0'..'9']) do begin
    Result[i] := Chr(Ord(Result[i]) + 1);
    if Result[i] <> Chr(Ord('9') + 1) then
      Break;
    Result[i] := '0';
    Dec(i);
  end;
end;

oder

Delphi-Quellcode:

function StrInc(const Number: String): String;
var
  i: Integer;
begin
  Result := Number;
  i := Length(Result);
  while (i > 0) and (Result[i] in ['0'..'9']) do begin
    Result[i] := Chr((Ord(Result[i]) - Ord('0') + 1) mod 10 + Ord('0'));
    if Result[i] <> '0' then
      Break;
    Dec(i);
  end;
end;

[Cogito]

Super! Vielen Dank für die schnellen Antworten!!!