浏览代码

tdbf: fix compilation for wince: it has no OemToCharBuff

git-svn-id: trunk@9339 -
micha 18 年之前
父节点
当前提交
83285b3418
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/fcl-db/src/dbase/dbf_common.pas

+ 2 - 0
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