ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IBDatabaseInfo.pas

Comparing ibx/trunk/runtime/IBDatabaseInfo.pas (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 118 by tony, Mon Jan 22 13:58:14 2018 UTC

#	Line 84 | Line 84 | type
84		function GetReadIdxCount: TStringList;
85		function GetReadSeqCount: TStringList;
86		function GetUpdateCount: TStringList;
87	<	function GetOperationCounts(DBInfoCommand: Integer; FOperation: TStringList): TStringList;
87	>	function GetOperationCounts(DBInfoCommand: Integer; var FOperation: TStringList): TStringList;
88		function GetReadOnly: Long;
89		function GetStringDatabaseInfo(DatabaseInfoCommand: Integer): String;
90		function GetDBSQLDialect: Long;
#	Line 250 | Line 250 | end;
250
251		function TIBDatabaseInfo.GetODSMinorVersion: Long;
252		begin
253	<	result := GetLongDatabaseInfo(isc_info_ods_minor_version);
253	>	CheckDatabase;
254	>	Result := Database.Attachment.GetODSMinorVersion;
255		end;
256
257		function TIBDatabaseInfo.GetODSMajorVersion: Long;
258		begin
259	<	result := GetLongDatabaseInfo(isc_info_ods_version);
259	>	CheckDatabase;
260	>	Result := Database.Attachment.GetODSMajorVersion;
261		end;
262
263		function TIBDatabaseInfo.GetPageSize: Long;
#	Line 331 | Line 333 | begin
333		result := GetLongDatabaseInfo(isc_info_writes);
334		end;
335
336	<	function TIBDatabaseInfo.GetOperationCounts(DBInfoCommand: Integer; FOperation: TStringList): TStringList;
336	>	function TIBDatabaseInfo.GetOperationCounts(DBInfoCommand: Integer;
337	>	var FOperation: TStringList): TStringList;
338		var opCounts: TDBOperationCounts;
339		i: integer;
340		begin

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines