paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

tdbf: fix compilation for wince: it has no OemToCharBuff

Browse Source 
git-svn-id: trunk@9339 -
This commit is contained in:
micha 2007-11-27 20:54:51 +00:00
parent 3e1eba1745
commit 83285b3418
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/dbase/dbf_common.pas
View File

@ -363,12 +363,14 @@ begin
if Length = -1 then if Length = -1 then
Length := StrLen(Src); Length := StrLen(Src);
Result := Length; Result := Length;
{$ifndef WINCE}
if (FromCP = GetOEMCP) and (ToCP = GetACP) then if (FromCP = GetOEMCP) and (ToCP = GetACP) then
OemToCharBuff(Src, Dest, Length) OemToCharBuff(Src, Dest, Length)
else else
if (FromCP = GetACP) and (ToCP = GetOEMCP) then if (FromCP = GetACP) and (ToCP = GetOEMCP) then
CharToOemBuff(Src, Dest, Length) CharToOemBuff(Src, Dest, Length)
else else
{$endif}
if FromCP = ToCP then if FromCP = ToCP then
begin begin
if Src <> Dest then if Src <> Dest then