Error al dar click en formulario

[Neftali [Germán.Estévez]]

Hola.
Tal vez tendrías que poner el código que se está ejecutando...
¿Se está ejecutando algún código?

[jafera]

Gracias por la respuesta.

El problema es que no se en que punto se produce el error ya que me pasa muchas veces.

Explico un poco el proceso:
He instalado XE5 y sus componentes anexos, luego he abierto un proyecto relativamente pequeño de D6 en el XE5, al compilarlo CNPack da estos errores:

Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.498
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.511
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.499
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.500
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.518
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.499
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.509
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.508
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.499
Exception: Access violation at address 500AAE63 in module 'rtl190.bpl'. Read of address 00000000 at 0.502

pero compila y rula.

Entro en la aplicacion usuario pasword y veo el form principal, luego le doy click a cualquier boton del menu y me salta el error de la imagen del primer mensaje, incluso este error de borrado aparece como 3 o 4 veces. Tambien me aparece el error en el momento de dar click al boton de cierre.

He puesto punto de interrupcion en el create, en el show, en el close, en el detroy y el mensaje con el error aparece siempre y no entro en el modo debug para ver si peta en alguna linea.

No se que código puedo aportar para ver algo de luz

Saludos

Josep

[jafera]

A ver si el error puede venir por este código en el close del botón, es lo único que se me ocurre:

Código Delphi [-]
procedure TF_Inici.ToolButton8Click(Sender: TObject);
var FileInfo: TShFileOpStruct;
begin
        if MDIChildCOUNT > 0 then
        begin
                ShowMessage('Hi han finestres obertes, tanca-les totes abans de sortir');
                Abort;
        end
        else
        begin
                FileInfo.Wnd := Handle;
                FileInfo.wFunc := FO_DELETE;
                FileInfo.pFrom := 'C:\Gestio_Arbitral_1.0\Temp\*.jpg';
                FileInfo.pTo := nil;
                FileInfo.fFlags := FOF_NOCONFIRMATION;
                ShFileOperation(FileInfo);

                FileInfo.Wnd := Handle;
                FileInfo.wFunc := FO_DELETE;
                FileInfo.pFrom := 'C:\Gestio_Arbitral_1.0\Temp\*.pdf';
                FileInfo.pTo := nil;
                FileInfo.fFlags := FOF_NOCONFIRMATION;
                ShFileOperation(FileInfo);

                Close;
        end;
end;

Saludos

Josep

[jafera]

Después de probarlo, el error está en el código anterior, no se si falta alguna unit o debo actualizar alguna linea a la nueva versión.

Si alguien tiene alguna idea pues será bien recibida.

Saludos

Josep

[jafera]

Solucionado

Buscando, buscando he adoptado este código:

Código Delphi [-]
procedure TF_Inici.ToolButton8Click(Sender: TObject);
var SearchRec: TSearchRec;
begin
        if MDIChildCOUNT > 0 then
        begin
                ShowMessage('Hi han finestres obertes, tanca-les totes abans de sortir');
                Abort;
        end
        else
        begin
                if FindFirst('C:\Gestio_Arbitral_1.0\Temp\*.*', faAnyFile, SearchRec) = 0 then
                repeat
                    Deletefile('C:\Gestio_Arbitral_1.0\Temp\'+SearchRec.name);
                until (FindNext(SearchRec) <> 0);
                FindClose(SearchRec);

                Close;
        end;
end;

Gracias a todos

Josep

[jafera]

Mi gozo en un pozo.

En un principio funcionaba bien y ahora me da un error de incompatibilidad:

[dcc32 Error] Curses.pas(725): E2010 Incompatible types: 'PWideChar' and 'string'
[dcc32 Error] Curses.pas(727): E2010 Incompatible types: 'NativeUInt' and 'TSearchRec'
[dcc32 Fatal Error] F2063 Could not compile used unit 'Curses.pas'

Me parece a mi que la migración va a ser más dura de lo que pensaba.

Por cierto me sigue lanzando el access violation....

Saludos

Josep

[Neftali [Germán.Estévez]]

¿Porqué no ejecutas el código inicial paso a paso y ves en qué línea te está dando el error?
Coloca un Breakpoint al inicio del procedimiento y ejecuta hasta que llegue ahí.