Do not use a set with CP_NONE, whose value is

git-svn-id: trunk@35476 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -1687,7 +1687,8 @@ begin
   // converts parameter value to connection charset
   if FCodePage = CP_UTF8 then
     Result := Param.AsUTF8String
-  else if FCodePage in [DefaultSystemCodePage, CP_ACP, CP_NONE] then
+  else if (FCodePage = DefaultSystemCodePage) or
+          (FCodePage = CP_ACP) or (FCodePage = CP_NONE) then
     Result := Param.AsAnsiString
   else
   begin