|
@@ -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
|