fcl-db: base: use type casting of StrPLCopy parameter to call right ansi version instead of unicode version.

Affect all TStringFields with DataSize>8192 !

git-svn-id: trunk@27691 -

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

@@ -1201,7 +1201,7 @@ begin
     if FTransliterate then
       DataSet.Translate(@AValue[1],@DynBuf[0],True)
     else
-      StrPLCopy(@DynBuf[0], AValue, DataSize);
+      StrPLCopy(PChar(DynBuf), AValue, DataSize);
     SetData(@DynBuf[0]);
     end
 end;