paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 05:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: ibconnection: small cleanup

Browse Source 
git-svn-id: trunk@23072 -
This commit is contained in:
lacak 2012-11-28 07:33:54 +00:00
parent 502ed76da2
commit 7bd0c1df19
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -113,8 +113,8 @@ type
function RowsAffected(cursor: TSQLCursor): TRowsCount; override;
public
constructor Create(AOwner : TComponent); override;
procedure CreateDB; override;
function GetConnectionInfo(InfoType:TConnInfoType): string; override;
procedure CreateDB; override;
procedure DropDB; override;
//Segment size is not used in the code; property kept for backward compatibility
property BlobSegmentSize : word read FBlobSegmentSize write FBlobSegmentSize; deprecated;
@ -381,7 +381,7 @@ begin
case InfoType of
citServerType:
// Firebird returns own name in ServerVersion; Interbase 7.5 doesn't.
if pos('FIREBIRD',UpperCase(FDatabaseInfo.ServerVersionString))=0 then
if Pos('Firebird', FDatabaseInfo.ServerVersionString)=0 then
result := 'Interbase'
else
result := 'Firebird';
@ -483,7 +483,6 @@ const
var
BeginPos,EndPos,StartLook,i: integer;
NumericPart: string;
Version: integer;
begin
result := '';
// Ignore 6.x version number in front of "Firebird"