Problema al comenzar transaccion

[cipce22]

Empezado por ecfisa

Hola cipce22.

Otra consulta: ¿ Existe algún TDataModule en Auto-create forms o por código, cuya creación pudiera estar en órden posterior al uso de la función ?

Saludos

Al mover el orden una de mis forms no se logra mostrar y me muestra violacion de acceso, el form que lo provoca es el ultimo en ser mostrado y el ultimo en la lista ¿así debe ser?

el error de el update continua

[Casimiro Noteví]

Yo revisaría esta parte:

Código Delphi [-]
SetLength(Array_idmatriculas_incorr, cont_arr);
Array_idmatriculas_incorr[cont_arr]:=dm.IBQuery1.FieldByName('id').AsInteger;
inc(cont_arr,1);

Así a simple vista diría que tienes el problema ahí.

[ecfisa]

Hola cipce22.

Opino igual que Casimiro, debería ser:

Código Delphi [-]
...
 cont_arr := 0; // <-
 ....
 begin
      SetLength(Array_idmatriculas_incorr, cont_arr + 1 ); // <-

      Array_idmatriculas_incorr[cont_arr]:=dm.IBQuery1.FieldByName('id').AsInteger;
      inc(cont_arr,1);
  ...

También lo podrías escribir de este modo (ahorrándote el contador):

Código Delphi [-]
...
  while not dm.IBQuery1.eof do
  begin
    if  not (dm.IBQuery1.FieldByName('id').AsInteger=campo_id_oficial)  then
    begin
      SetLength(Array_idmatriculas_incorr, Length(Array_idmatriculas_incorr) + 1 );
      Array_idmatriculas_incorr[High(Array_idmatriculas_incorr)]:= dm.IBQuery1.FieldByName('id').AsInteger;
    end;
    dm.IBQuery1.Next;
  end;
...

Otra alternativa es darle al arreglo dinámico, el tamaño de una sola vez:

Código Delphi [-]
...
  cont_arr := 0;
  SetLength(Array_idMatriculas_incorr, dm.IBQuery1.RecordCount ); // <-
  while not dm.IBQuery1.eof do
  begin
    if  not (dm.IBQuery1.FieldByName('id').AsInteger=campo_id_oficial)  then
    begin
      Array_idmatriculas_incorr[cont_arr]:= dm.IBQuery1.FieldByName('ID').AsInteger;
      Inc(cont_arr, 1);
    end;
    dm.IBQuery1.Next;  
  ...

Saludos

[cipce22]

¡Funcionó! gracias


De alguna manera el cambiar este ciclo ya no generó la violación de acceso, ¿por qué la provocaba?

no me mostraba ningun error ni mostraba alguna excepcion cuando lo ponia en un bloque try

si alguien me explica esto ultimo, seria perfecto para poder evitar este error en el futuro, que para mi, es casi inexplicable
Agradezco a todos la ayuda

[Casimiro Noteví]

Empezado por cipce22

no me mostraba ningun error ni mostraba alguna excepcion cuando lo ponia en un bloque try

Eso te pasa por no poner el código real que estás usando.
Lo habríamos visto al momento.

[cipce22]

Empezado por Casimiro Notevi

Eso te pasa por no poner el código real que estás usando.
Lo habríamos visto al momento.

Tienes razón , la proxima vez lo posteare completo en caso de no ser tan grande, aunque sigo con la duda de cual es la razon para que ese ciclo me generara la violacion

[Casimiro Noteví]

Pues porque intentaba acceder a una posición del array que no existe.
Ejemplo: tienes un array de 4 posiciones: array[0..3] y tecleas array[5] = "hola"
No existe la posición 5.

[ecfisa]

Hola cipce22.

Empezado por cipce22

..., aunque sigo con la duda de cual es la razon para que ese ciclo me generara la violacion

El motivo es el que te comenta Casimiro, en tu caso en concreto sucede por:

Código Delphi [-]
...
var
  v     : array of Integer;
  con, i: Integer;
begin                   
  con := 1;             // con es igual a: 1  
  for i := 1 to 5 do
  begin
    SetLength(v, con);  // se crea un lugar que es: v[0]
    v[con]:= i;         //  ¡ Error, v[1] todavía no ha sido creado !
    Inc(con, 1);
  end;
  ...

Saludos