Error de variable en bucle for

[ecfisa]

Hola Josep.

Como se que la subserie empieza por un dígito concreto, puedo crear un campo que sea por ejemplo 500 y sumarle tantos valores como unidades tenga.

No entiendo la lógica que deseas aplicar, pero a ver... Siempre que sean dígitos y no superen la cantidad de dos, el código:

Código SQL [-]
StringOfChar('0', 3 - Length(IntToStr(i))) + IntToStr(i))

completa con ceros delante hasta lograr las tres cifras, vg.:

1    =   001
...
99   =   099
541  =   541 (aquí no agrega cero delante)

Pero y si el dígito inicial es 0?
Lo tendré que tratar como una cadena?

No, en absoluto si el dígito es cero, el código queda "000". Pero no entiendo en base a qué o de donde estas tomando los valores de inicio y fin que conforman el código (no los tres dígitos obtenidos a partir de la serie).

Es decir, yo te entendí que el nuevo código está formado por tres partes que son:

• Los tres primeros dígitos de la serie.
• Un punto.
• Un valor incremental consecutivo que debe completarse con ceros delante hasta la cantidad de tres cífras.

¿ Es correcto ?

Saludos