Browse Source

* Fix compilation on Unix (oem A version)

git-svn-id: trunk@24695 -
michael 12 years ago
parent
commit
b9dacce654
1 changed files with 4 additions and 4 deletions
  1. 4 4
      packages/fcl-db/src/dbase/dbf_wtil.pas

+ 4 - 4
packages/fcl-db/src/dbase/dbf_wtil.pas

@@ -253,8 +253,8 @@ function GetOEMCP: Cardinal;
 function GetACP: Cardinal;
 function GetACP: Cardinal;
 function OemToChar(lpszSrc: PChar; lpszDst: PChar): BOOL;
 function OemToChar(lpszSrc: PChar; lpszDst: PChar): BOOL;
 function CharToOem(lpszSrc: PChar; lpszDst: PChar): BOOL;
 function CharToOem(lpszSrc: PChar; lpszDst: PChar): BOOL;
-function OemToCharBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
-function CharToOemBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
+function OemToCharBuffA(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
+function CharToOemBuffA(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
 function MultiByteToWideChar(CodePage: DWORD; dwFlags: DWORD; const lpMultiByteStr: LPCSTR; cchMultiByte: Integer; lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer;
 function MultiByteToWideChar(CodePage: DWORD; dwFlags: DWORD; const lpMultiByteStr: LPCSTR; cchMultiByte: Integer; lpWideCharStr: LPWSTR; cchWideChar: Integer): Integer;
 function WideCharToMultiByte(CodePage: DWORD; dwFlags: DWORD; lpWideCharStr: LPWSTR; cchWideChar: Integer; lpMultiByteStr: LPSTR; cchMultiByte: Integer; lpDefaultChar: LPCSTR; lpUsedDefaultChar: PBOOL): Integer;
 function WideCharToMultiByte(CodePage: DWORD; dwFlags: DWORD; lpWideCharStr: LPWSTR; cchWideChar: Integer; lpMultiByteStr: LPSTR; cchMultiByte: Integer; lpDefaultChar: LPCSTR; lpUsedDefaultChar: PBOOL): Integer;
 function CompareString(Locale: LCID; dwCmpFlags: DWORD; lpString1: PChar; cchCount1: Integer; lpString2: PChar; cchCount2: Integer): Integer;
 function CompareString(Locale: LCID; dwCmpFlags: DWORD; lpString1: PChar; cchCount1: Integer; lpString2: PChar; cchCount2: Integer): Integer;
@@ -588,7 +588,7 @@ begin
   Result := true;
   Result := true;
 end;
 end;
 
 
-function OemToCharBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
+function OemToCharBuffA(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
 begin
 begin
   if lpszDst <> lpszSrc then
   if lpszDst <> lpszSrc then
     StrLCopy(lpszDst, lpszSrc, cchDstLength);
     StrLCopy(lpszDst, lpszSrc, cchDstLength);
@@ -598,7 +598,7 @@ begin
   Result := true;
   Result := true;
 end;
 end;
 
 
-function CharToOemBuff(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
+function CharToOemBuffA(lpszSrc: PChar; lpszDst: PChar; cchDstLength: DWORD): BOOL;
 begin
 begin
   if lpszDst <> lpszSrc then
   if lpszDst <> lpszSrc then
     StrLCopy(lpszDst, lpszSrc, cchDstLength);
     StrLCopy(lpszDst, lpszSrc, cchDstLength);