* Fixed bugs 9143 and 11706 (duplicates)

git-svn-id: trunk@11612 -

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

@@ -1179,12 +1179,12 @@ var
   Buffer    : PWideChar;
 begin
   if DataSize <= dsMaxStringSize then begin
-    Result := GetData(@FixBuffer, False);
+    Result := GetData(@FixBuffer, True);
     aValue := FixBuffer;
   end else begin
     SetLength(DynBuffer, Succ(Size));
     Buffer := PWideChar(DynBuffer);
-    Result := GetData(Buffer, False);
+    Result := GetData(Buffer, True);
     if Result then
       aValue := Buffer;
   end;