Violación de Dirección Access violation at adress

[[rruz]]

Te recomiendo que uses Eurekalog para hacer un trace de los errores.
Esta app te indicara donde se produjo el error indicandote incluso el numero de linea de tu codigo fuente.

http://www.eurekalog.com/

Saludos
.

[mzell]

Hola Manuel.

Te sugiero que revises la configuración regional de la computadora donde instalastes el sistema (Panel de Control -> Configuración Regional e Idioma).
Podría ser que la configuración del formato de fechas y números y monedas estén causando problemas.
He tenido una experiencia similar al emplear unos componentes de terceros para editar fechas y valores numéricos (Los componentes Edit de LMD Tools SE, aunque eso fué un par de años, a lo mejor ya los mejoraron). En las computadoras windows que empleaban formatos en inglés me funcionaba bien, pero al correrlo en una pc con formatos en español aparecía un mensaje de error de AV. Al configurar el equipo para utilizar el formato en inglés, el problema desapareció. Al final terminé reemplazando los controles.
Si, suena extraño, pero sucede.

Bye

[Manuel]

mzell, voy a revisar la configuración regional a ver que pasa, más precisamente el error se produce cuando cargo una forma de esta manera:

Código Delphi [-]
try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;

Ahora como digo solo se produce el error en algunos equipos y no siempre.

[mzell]

Hola Manuel.
Porque no pruebas de esta forma:

  try
    Screen.Cursor := crHourGlass;
    Fasistenciaanual := TFasistenciaanual.Create(self);
    Fasistenciaanual.ShowModal;
  finally
    screen.Cursor := crDefault;
  end;

[[AzidRain]]

Creo que el try está mal ubicado:

Código Delphi [-]
Screen.Cursor   := crHourGlass;
Fasistenciaanual:= TFasistenciaanual.create( nil );
Screen.Cursor   := crDefault;
try 
    
  Fasistenciaanual.Showmodal;    
finally
  Screen.Cursor := crDefault;
  Fasistenciaanual.Free;
 end;

Sería bueno si nos indicas que pusiste en el OnCreate u OnShow de FAsistenciaAnual

[Manuel]

Empezado por AzidRain

Creo que el try está mal ubicado:

Código Delphi [-]
Screen.Cursor   := crHourGlass;
Fasistenciaanual:= TFasistenciaanual.create( nil );
Screen.Cursor   := crDefault;
try 
    
  Fasistenciaanual.Showmodal;    
finally
  Screen.Cursor := crDefault;
  Fasistenciaanual.Free;
 end;

Sería bueno si nos indicas que pusiste en el OnCreate u OnShow de FAsistenciaAnual

Todo parte de una forma principal que tiene un menú, y cargo las demas formas a medida que el usuario selecciona las opciones, ejemplo:

Código Delphi [-]
procedure TFMPrincipal.Inasistencia2Click(Sender: TObject);
begin
    try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;
end;

[[egostar]]

Empezado por Manuel

Todo parte de una forma principal que tiene un menú, y cargo las demas formas a medida que el usuario selecciona las opciones, ejemplo:

Código Delphi [-]
procedure TFMPrincipal.Inasistencia2Click(Sender: TObject);
begin
    try
        Screen.Cursor := crHourGlass;
        Fasistenciaanual:= TFasistenciaanual.create(Self);
    finally
        Screen.Cursor := crDefault;
    end;
        Fasistenciaanual.Showmodal;
        Fasistenciaanual.Free;
end;

Coincido con AzidRain, lo que estas haciendo no me parece correcto, imaginate que pasa si por cualquier circunstancia no se puede crear la forma TFasistenciaanual, de todas todas la tratas de abrir, eso me parece un gran vacío.

Salud OS