瀏覽代碼

fcl-db: tests: cosmetic

git-svn-id: trunk@33080 -
lacak 9 年之前
父節點
當前提交
5f17bcbc97
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. 1 2
      packages/fcl-db/tests/sqldbtoolsunit.pas

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

@@ -184,10 +184,9 @@ begin
   {$ENDIF Win64}
     MSSQL:      Fconnection := TMSSQLConnection.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;
 
-  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);
 
   with Fconnection do