Fortlaufende Kundennummer

[marabu]

Ich hatte das schon verstanden, aber muss vielleicht etwas deutlicher werden. Es ist absolut unüblich die Folgenummer aus den bereits vergebenen Nummern der Kundentabelle abzuleiten. Man verwendet grundsätzlich einen unabhängigen Generator. Wenn der nicht verfügbar ist, dann kann man sich mit einer speziellen Tabelle behelfen, deren Tupel den Prefix und die zuletzt vergebene Nummer enthalten.

Soweit zu den Grundlagen, jetzt zu deinem Problem. Die Länge des Präfix ist doch bekannt:

Delphi-Quellcode:

function GetNext(s: String): String;
var
  next: Cardinal;
begin
  next := Succ(StrToInt(RightStr(s, NUM_LENGTH)));
  Result := Format('%s%.*d', [KDNR_PREFIX, NUM_LENGTH, next]));
end;

marabu