Error de variable en bucle for

[ecfisa]

Hola Josep.

A ver si entendí...

Código Delphi [-]
procedure TF_Real.SaveSerie(const Serie, CodDesde, Cantidad: string);
var
  i, desde, hasta : Integer;
begin
  if not TryStrToInt(CodDesde[1], desde) then
    raise Exception.Create('El código no es número válido');
  if not TryStrToInt(Cantidad, hasta) then
    raise Exception.Create('La cantidad no es número válido');
  desde := desde * 100;
  hasta := desde + hasta;
  with F_ModulDades do
  begin
    for i := desde to hasta do
    begin
       Numeros_Serie_Real.Open;
       Numeros_Serie_Real.Append;
       Numeros_Serie_RealNUM_SERIE.Value := Copy(Serie, 1, 3) +
        '.' + StringOfChar('0', 3 - Length(IntToStr(i))) + IntToStr(i));
       Numeros_Serie_Real.Post;
       Numeros_Serie_Real.Next;
    end
  end
end;

Ejemplo de uso:

Código Delphi [-]
procedure TF_Real.ToolButton9Click(Sender: TObject);
begin
  SaveSerie('56780123', '305', '120');
end;

En el ejemplo, generaría este resultado:

567.300
567.301
....
567.419
567.420

Se puede jugar un poco con los parámetros, como por ejemplo usar enteros en lugar de cadena, pero desconozco en que formato están guardados los datos en la tabla...

Saludos