Skip to content
Permalink
Browse files

Minor performance fix

  • Loading branch information
ansgarbecker committed Feb 5, 2020
1 parent 0254345 commit ec31a25e966c8b53c7cc6390e24692c46faa3f9a
Showing with 2 additions and 2 deletions.
  1. +2 −2 source/connections.pas
@@ -366,8 +366,8 @@ procedure Tconnform.btnOpenClick(Sender: TObject);
// Connect to selected session
Params := CurrentParams;

if (CurrentParams.NetType = ntSQLite)
and (not FileExists(CurrentParams.Hostname))
if (Params.NetType = ntSQLite)
and (not FileExists(Params.Hostname))
then begin
Msg := f_('Database file "%s" does not exist. Shall it be created now?', [Params.Hostname]);
DoCreateDb := MessageDialog(Msg, mtConfirmation, [mbNo, mbYes]);

0 comments on commit ec31a25

Please sign in to comment.
You can’t perform that action at this time.