paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #0028980

Browse Source 
git-svn-id: trunk@32277 -
This commit is contained in:
michael 2015-11-08 21:35:12 +00:00
parent 7d41d19150
commit e838317177
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/wince/sysutils.pp
View File

@ -763,9 +763,12 @@ begin
end;
function WinCECompareWideString(const s1, s2 : WideString) : PtrInt;
function WinCECompareWideString(const s1, s2 : WideString; Options : TCompareOptions) : PtrInt;
begin
Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), 0);
if coIgnoreCase in Options then
Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), NORM_IGNORECASE)
else
Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), 0);
end;
@ -775,9 +778,12 @@ begin
end;
function WinCECompareUnicodeString(const s1, s2 : UnicodeString) : PtrInt;
function WinCECompareUnicodeString(const s1, s2 : UnicodeString; Options : TCompareOptions) : PtrInt;
begin
Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), 0);
if coIgnoreCase in Options then
Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), NORM_IGNORECASE)
else
Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), 0);
end;
@ -925,9 +931,7 @@ end;
procedure InitWinCEWidestrings;
begin
widestringmanager.CompareWideStringProc:=@WinCECompareWideString;
widestringmanager.CompareTextWideStringProc:=@WinCECompareTextWideString;
widestringmanager.CompareUnicodeStringProc:=@WinCECompareUnicodeString;
widestringmanager.CompareTextUnicodeStringProc:=@WinCECompareTextUnicodeString;
widestringmanager.UpperAnsiStringProc:=@WinCEAnsiUpperCase;
widestringmanager.LowerAnsiStringProc:=@WinCEAnsiLowerCase;