error con form de acceso al sistema

[rgstuamigo]

A simple vista, creo que el error te da es por que ¿que pasa si la funcion
FrmLogin.ShowModal devuelve otro valor distinto a mrYes?,
es decir el usuario presiona(Supongo)otro boton, por ejemplo el
boton cancelar..(OJO Viendo tu codigo eso implica que los otros
formularios no se estan creando o instanciando).
Creo que en ese caso deberias tener un else para finalizar(supongo)
la aplicacion..
Saludos...

[Kenobi]

Ahora si funciono

Código Delphi [-]
program SisAreas;

uses
  Forms, Controls,
  F_Principal in 'Principal\F_Principal.pas' {FrmPrincipal},
  F_DataAreas in 'DatosAreas\F_DataAreas.pas' {DataAreas: TDataModule},
 ..
..
..
..
..
..
..
{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDataAreas, DataAreas);
  frmLogin:=TFrmLogin.Create(Nil);
  if FrmLogin.ShowModal=mrYes then
   begin
    Application.CreateForm(TFrmPrincipal, FrmPrincipal);
    Application.CreateForm(TFrmMobiliario, FrmMobiliario);
    Application.CreateForm(TFrmAreas, FrmAreas);
    Application.CreateForm(TFrmAsignaturas, FrmAsignaturas);
    Application.CreateForm(TFrmMotivos, FrmMotivos);
    Application.CreateForm(TFrmUsuarios, FrmUsuarios);
    Application.CreateForm(TFrmAsignarAreas, FrmAsignarAreas);
    Application.CreateForm(TFrmCalendario, FrmCalendario);
    Application.CreateForm(TPlantilla, Plantilla);
    Application.CreateForm(TFrmBuscador, FrmBuscador);
    Application.CreateForm(TFrmSolicitudArea, FrmSolicitudArea);
    Application.CreateForm(TFrmSolicitudAreaStatus, FrmSolicitudAreaStatus);
    Application.Run;
  end
  else  DataAreas.Destroy;
end.

sin duda el DataModulo llamado DataAreas debe ser destruido explicitamente porque incluso intente en la penultima linea

Código Delphi [-]
 else  application.terminate;

y no funciona para nada pero con Destroy si que si


Gracias a todos ....

P.D: ya lo idente mejor, perdon por el desorden anterior ....

[rgstuamigo]

En todo caso, lo mas estandar y recomendable para destruir un objeto y liberar memoria en Delphi es usando el metodo Free,este metodo llama internamente al destructor (Destroy) del objeto;ya que si llamamos el destructor directamente, en algunos casos(no siempre) podria ocurrir una Excepcion si nuestro objeto ya fue liberado anteriormente o no fue instanciado(no se reservo memoria),etc,por eso es recomendable destruir un objeto con Free, evitando tales situaciones.

Siguiendo tu codigo seria asi:

Código Delphi [-]
...
else DataAreas.Free;//<<----

Saludos...

[delphi.com.ar]

Empezado por Kenobi

sin duda el DataModulo llamado DataAreas debe ser destruido explicitamente porque incluso intente en la penultima linea

Si lo creas como lo hiciste en el código, no tendrías que encargarte de destruírlo, ya que al utilizar Application.CreateForm el DataModule tiene como Owner el objeto Application, y cuando se destruye Application (al ejecutar el finalization de la unit Forms) destruiría el DataModule.
Recuerda que en tu código frmLogin queda en memoria hasta que se termine el proceso por completo.

Saludos!

[[ElKurgan]]

Sin embargo, a mi me ha pasado como a Kenobi. Si no libero el data module me lanza la excepción. No se si tendrá que ver con que se cree antes el modulo de datos (para acceso a la cuenta de usuarios) que el formulario principal, que trata el ciclo de mensajes de windows, o se trata de un bug de Delphi. Programo con Delphi 2005, y lo solucioné como dice Kenobi, con un "else" y un DataModule.Free.

Saludos