* Fix bug ID #35796, codepage issue when getting string as variant

git-svn-id: trunk@42344 -

packages/fcl-db/src/base/fields.inc

@@ -1202,7 +1202,10 @@ var s : rawbytestring;
 
 begin
   If GetValue(s) then
+    begin
+    SetCodePage(s, CP_ACP, True); 
     Result:=s
+    end
   else
     Result:=Null;
 end;