* fix some winapi calls to their -A equivalent. For FPC_UNICODE_RTL

git-svn-id: trunk@24689 -

packages/fcl-db/src/dbase/dbf_common.pas

@@ -373,10 +373,10 @@ begin
   Result := Length;
 {$ifndef WINCE}
   if (FromCP = GetOEMCP) and (ToCP = GetACP) then
-    OemToCharBuff(Src, Dest, Length)
+    OemToCharBuffA(Src, Dest, Length)
   else
   if (FromCP = GetACP) and (ToCP = GetOEMCP) then
-    CharToOemBuff(Src, Dest, Length)
+    CharToOemBuffA(Src, Dest, Length)
   else
 {$endif}
   if FromCP = ToCP then