From 83285b3418e6dc81102aadc4536c028c9c6a1ebc Mon Sep 17 00:00:00 2001
From: micha <micha@idefix.freepascal.org>
Date: Tue, 27 Nov 2007 20:54:51 +0000
Subject: [PATCH] tdbf: fix compilation for wince: it has no OemToCharBuff

git-svn-id: trunk@9339 -
---
 packages/fcl-db/src/dbase/dbf_common.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-db/src/dbase/dbf_common.pas b/packages/fcl-db/src/dbase/dbf_common.pas
index 87fdfdb5d6..975233aee2 100644
--- a/packages/fcl-db/src/dbase/dbf_common.pas
+++ b/packages/fcl-db/src/dbase/dbf_common.pas
@@ -363,12 +363,14 @@ begin
   if Length = -1 then
     Length := StrLen(Src);
   Result := Length;
+{$ifndef WINCE}
   if (FromCP = GetOEMCP) and (ToCP = GetACP) then
     OemToCharBuff(Src, Dest, Length)
   else
   if (FromCP = GetACP) and (ToCP = GetOEMCP) then
     CharToOemBuff(Src, Dest, Length)
   else
+{$endif}
   if FromCP = ToCP then
   begin
     if Src <> Dest then