Fortlaufende Kundennummer

[xSkaschY]

Hallo zusammen,

nun muss ich auch einen Beitrag in diesem Forum hinterlassen. Hab schon vieles durch DP gelernt, und neben dem Easy Helper meine 2te Anlaufstelle für Probleme mit Delphi

Meine frage ist eigentlich schon kurz aber Aussagekräftig im Topic formuliert.

Ich habe eine "Dynamische" Kundennummer dessen Prefix frei definierbar ist, ist in einer MySQL abgespeichert.

Nun habe ich die letzte Kundennummer im String 'currentcustomerno',

wie kann ich nun den Prefix zbs. "weblab{number}", um eine Zahl erweitern?

Was ich noch dazusagen muss, die Anzahl der Int's kann auch defieniert werden, ergo hab ich am ende {prefix}{number}.

in PHP Hab ich das so realisiert

Code:

function generateKundennr()
{
   $query = $this->MYSQL->query("SELECT `kundennr` FROM `".$GLOBALS["sql_cfg"]["table_kunden"]."` ORDER BY `id` DESC");
   $data = $this->MYSQL->fetch_array($query);

   $kundennr = substr($data["kundennr"], strlen(str_replace("{nummer}", "", $GLOBALS["system"]["kdnrprefix"])));
   $kundennr++;
   $maxcount = $GLOBALS["system"]["kdnrzeros"]-strlen($kundennr);

   for ($i = 0; $i < $maxcount; $i++) {
      @$zeros .= "0";
   }

   $kdnr = str_replace("{nummer}", @$zeros.$kundennr, $GLOBALS["system"]["kdnrprefix"]);
   return $kdnr;
}

In Delphi jedoch habe mich mit der Manipulation von Strings noch nicht so auseinander gesetzt.

Ich hoffe ich könnt meinem Vorhaben folgen.


Mit freundlichen Grüssen
Tobias Ehrig