Browse Source

fcl-db: tests: cosmetic

git-svn-id: trunk@33080 -
lacak 9 years ago
parent
commit
5f17bcbc97
1 changed files with 1 additions and 2 deletions
  1. 1 2
      packages/fcl-db/tests/sqldbtoolsunit.pas

+ 1 - 2
packages/fcl-db/tests/sqldbtoolsunit.pas

@@ -184,10 +184,9 @@ begin
   {$ENDIF Win64}
   {$ENDIF Win64}
     MSSQL:      Fconnection := TMSSQLConnection.Create(nil);
     MSSQL:      Fconnection := TMSSQLConnection.Create(nil);
     SYBASE:     Fconnection := TSybaseConnection.Create(nil);
     SYBASE:     Fconnection := TSybaseConnection.Create(nil);
+    else        writeln('Invalid database type, check if a valid database type for your achitecture was provided in the file ''database.ini''');
   end;
   end;
 
 
-  if not assigned(Fconnection) then writeln('Invalid database type, check if a valid database type for your achitecture was provided in the file ''database.ini''');
-
   FTransaction := TSQLTransaction.Create(nil);
   FTransaction := TSQLTransaction.Create(nil);
 
 
   with Fconnection do
   with Fconnection do