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.