Foros Club Delphi - Violacion de memoria cuando termina un procedure

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Violacion de memoria cuando termina un procedure (https://www.clubdelphi.com/foros/showthread.php?t=19830)

Violacion de memoria cuando termina un procedure

Hola Foro, estoy de nuevo por aqui, para comentarles un problema... espero que me ayuden.

Sucede que instalo un ejecutable que accesa una BD oracle en un cliente que tiene una Red NT. el programa falla al terminar un procedimiento en la ultima linea. sin importar lo que haya.

Código:

Procedure Maldito;

Begin

instrucción1;

instrucción2;

instrucción3;

instrucción4; //Aqui se genera el error

end;

El error es algo como un Access Violation, Write in Address 3D44FF56 (mas o menos).

esta ultima isntrucción puede ser algo como:
Variable:=Valor;
Screen.Cursor:=crDefault;
u otras igual de sencillas.

Lo curioso es que en otros clientes (con otros ambientes de red w2000 no falla). Cuando digo cliente me refiero al usuario que adquirió el software y no a una máquina cliente.

Para hacer las pruebas instalé en mi portatiol las fuentes y las ejecuté perfecto en mi oficina, pero cuando el mismo portatil se conecta a la Red del cliente, falla. El error no tiene nada que ver con la BD. y no hay problemas de creación y destrucción de objetos....

Existe dentro de este mismo procedimiento un segundo problema:

Tengo una pantalla que tiene varios checks. los cuales puedo accesar des de cualquier parte de la unidad. pero cuando intento accesarlos dentro de dicho procedimiento, falla si el componente no está "checkeado".

Asi:

Código:

Unit XXXX;

[...]

ELForm=Class(TForm)

  elboton:Tbutton;

  elcheck:Tcheckbox;

private

  procedure buttonClick;

  Procedure Maldito;

public 

end;



[...]



  procedure buttonClick;

  begin

  if elcheck.Checked then //No hay problema

    instrucciones; //No hay problema

  end;



  Procedure Maldito;

  begin

  instrucción1;

  if Elcheck.checked then //Falla aqui, Access violation 

                                   //Write in address 3D44FF56

                                   //Cuando el componente

                                   //No ha sido checkeado

     instrucción2;

  instrucción3;

  instrucción4;

  end;



[...]

Porque no nos muestras el código real para tratar de ver el problema??..

Saludos!

Hola a todos... ya encontré el error:

Decía que fallaba al terminar un procedimiento, mas o menos asi:

Código:

Procedure Maldito;

Begin

instrucción1;

instrucción2;

instrucción3;

instrucción4; //Aqui se genera el error

end;

Pues bien, sucedia que en una instrución intermedia por ejemplo instrucción2, se hacia un llamado a otro procediemiento en el que se especificaba la longitud de un array variable (Matriz: Array of array).

digamos que la matriz al final quedaba con una longitud (15,15), pues bien en este mismo procedimiento se llenaba la matriz en un ciclo que traia valores de una BD. sucede que retornaba un registro mas de lo esperado y se asignaba un valor a la matriz en la posicion (6,16), imposible, por que una posicion 16 no existe. Sin embargo, no se generaba un mensaje de error. simplemente pasaba hasta llegar al procedimiento padre y comenzaba a generar "Access Violations", sobre cualquier componente o instrucción que siguiera.

agradezco su atención.

bye.