diff options
-rw-r--r-- | packages/fcl-db/src/dbase/dbf_common.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/fcl-db/src/dbase/dbf_common.pas b/packages/fcl-db/src/dbase/dbf_common.pas index a56e3192a9..b12442bd1f 100644 --- a/packages/fcl-db/src/dbase/dbf_common.pas +++ b/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 |