I have the following code:

...

procedure TfrmLager.FormCreate(Sender: TObject);
var
   IniFil: TIniFile;
begin
     IniFil:=TIniFile.Create('lager.INI');
     tLager.DataBaseName:=IniFil.ReadString('files', 'dbpath',
'ERROR');
     try tLager.Active:=True;
     except on EDatabaseError do
     begin
          MessageDlg('Finner ikke databasen!' +
               ' DBPath=' + tLager.DatabaseName, mtWarning, [mbOK],
0);
          frmLager.Free;
     end;
     end;
     {Frigir minne fra inifilen}
     IniFil.Free;
     {setter opp ?vrige controller}
     qSalg.DataBaseName:=tLager.DataBaseName;
     qSalg.Active:=True;
     rbDato.Checked:=True;
end;

...

My problem is that if the EDataBaseError is true, the frmLager.Free
does *not* stop executing the program.
The MessageDLG goes ok, but it seems to skip the Free and continues
the program.
I've tried Close and Free but none works.

Pedro

Pedro E. Thormodsen (pedro.thormod...@login.eunet.no) wrote:
: I have the following code:

: ....

: procedure TfrmLager.FormCreate(Sender: TObject);
: var
:    IniFil: TIniFile;
: begin
:      IniFil:=TIniFile.Create('lager.INI');
:      tLager.DataBaseName:=IniFil.ReadString('files', 'dbpath',
: 'ERROR');
:      try tLager.Active:=True;
:      except on EDatabaseError do
:      begin
:           MessageDlg('Finner ikke databasen!' +
:                ' DBPath=' + tLager.DatabaseName, mtWarning, [mbOK],
: 0);
:           frmLager.Free;
:      end;
:      end;
:      {Frigir minne fra inifilen}
:      IniFil.Free;
:      {setter opp ?vrige controller}
:      qSalg.DataBaseName:=tLager.DataBaseName;
:      qSalg.Active:=True;
:      rbDato.Checked:=True;
: end;

: ....

: My problem is that if the EDataBaseError is true, the frmLager.Free
: does *not* stop executing the program.
: The MessageDLG goes ok, but it seems to skip the Free and continues
: the program.
: I've tried Close and Free but none works.

: Pedro

I dont think you can prevent the form from being created by a call to
.Free in the form's OnCreate handler. What I usually do is define a
boolean flag named e.g. bEverythingOK in the form's private section,
which I initialize FALSE in the first line of OnCreate and set to TRUE
if the creation has been completed successfully.  
Then I employ the OnActivate handle by inserting the following:

Procedure TFrmLager.OnActivate(Sender: TObject);
begin
  if not everything OK then Close;
end;

This works satisfactory for me. However, if someone has a different (and
probably more elegant solution, I'd be glad to know.

Hope this helps

Andy

pedro.thormod...@login.eunet.no (Pedro E. Thormodsen) wrote:

Hope this is a useful reaction. I haven't tested it.
Regards,
Bengt Richter
-----------------------------------------------------
var
   IniFil: TIniFile;
begin
     IniFil:=TIniFile.Create('lager.INI');
     tLager.DataBaseName:=
              IniFil.ReadString('files', 'dbpath','ERROR');

     {Frigir minne fra inifilen}
     IniFil.Free;
     try
        tLager.Active:=True;
       {setter opp ?vrige controller}
       qSalg.DataBaseName:=tLager.DataBaseName;
       qSalg.Active:=True;
       rbDato.Checked:=True;
     except
       on EDatabaseError do begin
          MessageDlg('Finner ikke databasen!' +' DBPath='
               + tLager.DatabaseName, mtWarning, [mbOK],0);
          frmLager.Release;
     end;
     end;
end;
----------------------------------------------------------