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

Comparing ibx/trunk/runtime/IBDatabaseInfo.pas (file contents):
Revision 4 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

# Line 18 | Line 18
18   {    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
19   {    express or implied. See the License for the specific language       }
20   {    governing rights and limitations under the License.                 }
21 {    The Original Code was created by InterBase Software Corporation     }
22 {       and its successors.                                              }
21   {    Portions created by Inprise Corporation are Copyright (C) Inprise   }
22   {       Corporation. All Rights Reserved.                                }
23   {    Contributor(s): Jeff Overcash                                       }
# Line 28 | Line 26
26  
27   unit IBDatabaseInfo;
28  
29 + {$Mode Delphi}
30 +
31   interface
32  
33   uses
34 <  Windows, SysUtils, Classes, Forms, ExtCtrls,
35 <  IBHeader, IBExternals, IB, IBDatabase;
34 >  SysUtils, Classes, IBHeader, IBExternals, IB, IBDatabase;
35  
36   type
37  
# Line 80 | Line 79 | type
79      function GetUpdateCount: TStringList;
80      function GetOperationCounts(DBInfoCommand: Integer; FOperation: TStringList): TStringList;
81      function GetReadOnly: Long;
83    function GetLongDatabaseInfo(DatabaseInfoCommand: Integer): Long;
82      function GetStringDatabaseInfo(DatabaseInfoCommand: Integer): String;
83      function GetDBSQLDialect: Long;
84    public
85      constructor Create(AOwner: TComponent); override;
86      destructor Destroy; override;
87      function Call(ErrCode: ISC_STATUS; RaiseError: Boolean): ISC_STATUS;
88 +    function GetLongDatabaseInfo(DatabaseInfoCommand: Integer): Long;
89      property Allocation: Long read GetAllocation;
90      property BaseLevel: Long read GetBaseLevel;
91      property DBFileName: String read GetDBFileName;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines