Error de variable en bucle for

[jafera]

Buenas a todos.

Estoy tratando de usar un bucle for para añadir automaticamente n registros a una tabla, pueden ir de uno a 150 aproximadamente y claro al hacerlo a mano siempre tenemos la posibilidad de olvidarnos de uno, de repetir otro, etc.
Para esto he intentado armar el siguiente bucle:

Código Delphi [-]
 
procedure TF_Real.ToolButton9Click(Sender: TObject);
var Temp,Codi,a: String;
    i, Total: Integer;
begin
        F_ConfirmacioCreaCodis:=TF_ConfirmacioCreaCodis.Create(Self);
        try
                If F_ConfirmacioCreaCodis.ShowModal = mrok then
                begin
                        Total:=F_ModulDades.Tren_RealUNITATS_CONSTRUIDES.Value;
                        for i = 1 to Total do
                        begin
                                a:=IntToStr(i);
                                Temp:='000';
                                Delete(Temp,1,Length(a);
                                Codi:=Concat(Temp+a);
                                F_ModulDades.Numeros_Serie_Real.Open;
                                F_ModulDades.Numeros_Serie_Real.Append;                            
                                F_ModulDades.Numeros_Serie_RealNUM_SERIE.Value:=Serie+'.'+Codi;
                                F_ModulDades.Numeros_Serie_Real.Post;
                                i:=i+1;
                        end;
                end;
        finally
                F_ConfirmacioCreaCodis.Free;
        end;
        Showmessage('Procés finalitzat');
end;

Al compilar me da esto: [Error] Real.pas(776): For loop control variable must be simple local variable

He colocado la variable donde está, en la declaracion public, en var del formulario y nada, siempre el mismo error.

Alguien me puede echar un cable? y de pasada me podeis decir si el código es correcto o necesitaria alguna modificacion.

El identificador único ID ya se lo paso en el evento onnewrecord de la tabla al igual que otro campo que es fijo ID_SERIE.

Gracias por adelantado

Josep

[aposi]

Prueba de poner

Código Delphi [-]
 
for i := 1 to Total do

[jafera]

Gracias, tiene toda la razón había olvidado los dos puntos, el código modificado queda así:

Código Delphi [-]
 
procedure TF_Real.ToolButton9Click(Sender: TObject);
var Temp,Codi,Serie,a: String;
    i, Total: Integer;
begin
        F_ConfirmacioCreaCodis:=TF_ConfirmacioCreaCodis.Create(Self);
        try
                If F_ConfirmacioCreaCodis.ShowModal = mrok then
                begin
                        Total:=F_ModulDades.Tren_RealUNITATS_CONSTRUIDES.Value;
                        Serie:=F_ModulDades.Tren_RealID_SERIE.Value;
                        for i := 1 to Total do
                        begin
                                a:=IntToStr(i);
                                Temp:='000';
                                Delete(Temp,1,Length(a));
                                Codi:=Concat(Temp+a);
                                F_ModulDades.Numeros_Serie_Real.Open;
                                F_ModulDades.Numeros_Serie_Real.Append;
                                F_ModulDades.Numeros_Serie_RealNUM_SERIE.Value:=Serie+'.'+Codi;
                                F_ModulDades.Numeros_Serie_Real.Post;
                                Next;
                        end;
                end;
        finally
                F_ConfirmacioCreaCodis.Free;
        end;
        Showmessage('Procés finalitzat');
end;

Saludos

Josep

[jafera]

Buenas de nuevo.

Sigo dando palos al agua con el bucle contador, acumulador, generador o como quiera llamarse.

Este es el código que funciona "a medias" si el length de (a) es 1, no hay problema, pero si el length es 2, el resultado obtenido no es el deseado.

Código Delphi [-]
 
if Length(F_ModulDades.Tren_RealID_SERIE.Value) > 3 then
        begin
                d:=Copy(Serie,5,5);
                Temp:=digit+'00';
                Serie:=Copy(Serie,1,3);
                for i:=1 to Total do
                begin
                        a:=IntToStr
                        Delete(Temp,3,Length(a));
                        Codi:=Concat(Temp+a);
                        F_ModulDades.Numeros_Serie_Real.Open;
                        F_ModulDades.Numeros_Serie_Real.Append;
                        F_ModulDades.Numeros_Serie_RealNUM_SERIE.Value:=Serie+'.'+Codi;
                        F_ModulDades.Numeros_Serie_Real.Post;
                        Next;
                end;
        end;

Lo que obtengo:
269.501
269.502.
.
.
.
269.5010
269.5011
.
.
269.5022

Lo que necesito
269.501
269.502
.
.
.
269.510
269.511
.
.
.
269.522

Tambien me encuentro con series en que la primera unidad es la 201 pero hay 133, con lo que tambien deberia cambiar la centena, es decir 269.201,.... 269.299,.... 269.300,.....269.333

No se estoy un poco perdido. Seguro que hay algun metodo para poder realizar este contador pero....

Gracias por leerme

Saludos

Josep

[ecfisa]

Hola Josep.

Por lo que pude inferir deseas componer un código compuesto por: Los primeros tres dígitos del número de serie, mas un punto, mas un código consecutivo de tres dígitos.

Te pongo un ejemplo que realiza esa tarea para que lo adaptes a tu código:

Código Delphi [-]
procedure DoCodes(const Serie: string; const Total: Integer; TS: TStrings);
var
  i: Integer;
begin
  for i:= 1 to Total do
    TS.Add(Copy(Serie,1, 3) + '.' + StringOfChar('0', 3- Length(IntToStr(i))) +IntToStr(i));
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  DoCodes('269012890023', 500, ListBox1.Items);
end;

Para probar el ejemplo sólo agrega un TListBox y un TButton en un TForm.

Saludos

[jafera]

Muchas gracias ecfisa.

El código genera 500 valores con el formato que yo quiero, esto es perfecto aunque no entiendo muy bien la linea:

Código Delphi [-]
 
DoCodes('269012890023', 500, ListBox1.Items);

No acabao de ver claro como implemento esto en mi código ya que aunque las series siempre constan de tres digitos, tengo varios escenarios:

Serie de 3 numeros sin subserie (ejemplo 309) y 20 ejemplares los codigos deben empezar por 309.001 y llegar al 309.020.
Serie de 3 numeros con subserie (ej. 269.2) y 131 ejemplares los códigos deben empezar por 269.201 y llegar al 269.331.
Serie de 3 numeros con subserie (ej. 269.5) y 22 ejemplares los códigos deben empezar por 269.501 y llegar al 269.522.

Como es estos datos son variables debo controlarlos antes de generar los registros de la tabla, yo se de antemano ya que estan en la tabla el valor de la serie y el numero de unidades.

Ahora he hecho una "chapuza" que funciona:

Código Delphi [-]
 
if Length(F_ModulDades.Tren_RealID_SERIE.Value) > 3 then
        begin
                d:=Copy(Serie,5,5);
                Serie:=Copy(Serie,1,3);
                for i:=1 to Total do
                begin
                        a:=IntToStr(i);
                        if Length(a) = 1 then
                        begin
                                Temp:=d+'0';
                        end;
                        if Length(a) = 2 then
                        begin
                                Temp:=d;
                        end;
                        if Length(a) = 3 then
                        begin
                                t:=StrToInt(d)+1;
                                Temp:=IntToStr(t);
                                a:=Copy(a,2,3);
                        end;
                        Codi:=Concat(Temp+a);
                        F_ModulDades.Numeros_Serie_Real.Open;
                        F_ModulDades.Numeros_Serie_Real.Append;
                        F_ModulDades.Numeros_Serie_RealNUM_SERIE.Value:=Serie+'.'+Codi;
                        F_ModulDades.Numeros_Serie_Real.Post;
                        Next;
                end;
        end;

aunque así me genera los registros pero creo que debe haber una solucion más fácil al problema.

Voy a dar alguna vuelta más a tu función a ver si le saco el entresijo.

Saludos

Josep