ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/iblocaldb/gui/IBLocalDBSupport.pas
(Generate patch)

Comparing ibx/trunk/iblocaldb/gui/IBLocalDBSupport.pas (file contents):
Revision 271 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

# Line 30 | Line 30 | unit IBLocalDBSupport;
30   interface
31  
32   uses
33 <  Classes, SysUtils, LResources, Forms, Controls,  Dialogs, IBXCustomIBLocalDBSupport;
33 >  Classes, SysUtils, LResources, Forms, Controls,  Dialogs, IBXCustomIBLocalDBSupport,
34 >  IBXServices;
35  
36   type
37  
# Line 116 | Line 117 | end;
117  
118   function TIBLocalDBSupport.InternalCreateNewDatabase(DBArchive: string
119    ): boolean;
119 var Ext: string;
120   begin
121 <  Ext := AnsiUpperCase(ExtractFileExt(DBArchive));
122 <  if Ext = '.GBK' then
121 >  if IsGBakFile(DBArchive) then
122    begin
123      Database.Attachment.Disconnect;
124      try
# Line 129 | Line 128 | begin
128      end;
129    end
130    else
132  if Ext = '.SQL' then
131      Result := IBXCreateDatabaseFromSQLDlgUnit.CreateNewDatabase(Database,DBArchive)
134  else
135    raise Exception.CreateFmt('Archive file (%s) has an unknown extension',[DBArchive]);
132   end;
133  
134   procedure TIBLocalDBSupport.Downgrade(DBArchive: string);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines