Automatische Nummernvergabe mit führenden Nullen

[messie]

Moin,

ein kleines Problem, wo ich aber keine generelle Lösung finde:
ich lege eine Anzahl von Bauteilen an, bei denen der User einen Präfix vergibt und die letzte Stelle hoch gezählt werden.
Bei 25 Teilen ergibt sich aus Startwert 123 -> 123..147.

Die Erhöhung findet durch einfache Wandlung in ein Integer statt. Nun möchte ich aber eine Nummer mit führenden Nullen Hochzählern, z.B. 0001 -> 0001..0025
Gibt es dafür eine einfache Strategie ohne dass ich mir die (wechselnde Anzahl) führenden Nullen nicht einzeln merken muss?

Grüße, Messie

[Meflin]

Code:

Format('%.*d', [5, 123]);

Kann man immernoch problemlos von und nach Integer umwandeln. Oder wo soll das Problem sein?

[hathor]

0123 bis 0147:

Delphi-Quellcode:

var i : Integer;
    s : String;
begin
  i := 122;
  repeat
    inc(i);
    s := Format('%.4d',[i]);
//irgendwas tun
  until i=147;
end;

Wenn Du die Nullen wieder entfernen willst:

Delphi-Quellcode:

function RemoveLeadingZeros(var aValue: String): String;
begin
While (Copy(aValue,1,1) = '0') Do Delete(aValue,1,1);
Result:= aValue;
end;
//oder
function RemoveLeadingZeros2(const aValue: String): String;
begin
  Result := IntToStr(StrToIntDef(aValue,0));
end;

[messie]

:thumb:
So habe ich Format noch nie benutzt :wink:

Grüße, Messie