freepascal bugtracker

Index: src/sqldb/sqldb.pp
===================================================================
--- src/sqldb/sqldb.pp	(revision 21208)
+++ src/sqldb/sqldb.pp	(working copy)
@@ -1275,8 +1275,9 @@
         strLength := CurrentP-PhraseP;
         Setlength(S,strLength);
         if strLength > 0 then Move(PhraseP^,S[1],(strLength));
-        s := uppercase(s);
-
+        s := uppercase(trim(s));
+        if EndOfComment and (pos('(',s)>1) then //remove the part in brackets included in previous loop
+          s:=copy(s,1,pos('(',s)-1);
         case ParsePart of
           ppStart  : begin
                      Result := TSQLConnection(Database).StrToStatementType(s);