diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-06-01 09:27:13 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-06-01 09:27:13 +0000 |
commit | 2b9e210902dc92ad1acf21313b3bf232ca5f9a9b (patch) | |
tree | a45754aa62d52bfb0673980948dd201dec73718f | |
parent | d77a93e5d7d5d773002599c4442dca7aae7ff4d0 (diff) | |
download | fpc-2b9e210902dc92ad1acf21313b3bf232ca5f9a9b.tar.gz |
* fix some winapi calls to their -A equivalent. For FPC_UNICODE_RTL
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24689 3ad0048d-3df7-0310-abae-a5850022a9f2
-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 |