so etwas ähnliches suche ich schon länger
Hast Du es noch etwas ultimativer irgendwo herumliegen?:
Delphi-Quellcode:
function IncrementWithMask(const Number, Mask:string, n: Integer):string;
//
alteNummer := 'Z024D00F';
neueNummer := IncrementWithMask(alteNummer, 'A000A00A', 10000);