From 7bd0c1df19e49f55cbf1ce26bda844f5a6840bf5 Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Wed, 28 Nov 2012 07:33:54 +0000
Subject: [PATCH] fcl-db: ibconnection: small cleanup

git-svn-id: trunk@23072 -
---
 packages/fcl-db/src/sqldb/interbase/ibconnection.pp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
index c0d904b876..084c207566 100644
--- a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
+++ b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
@@ -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"