paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 21:51:57 +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

12
rtl/wince/sysutils.pp
View File

@ -763,8 +763,11 @@ begin
end; end;
function WinCECompareWideString(const s1, s2 : WideString) : PtrInt; function WinCECompareWideString(const s1, s2 : WideString; Options : TCompareOptions) : PtrInt;
begin begin
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); Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), 0);
end; end;
@ -775,8 +778,11 @@ begin
end; end;
function WinCECompareUnicodeString(const s1, s2 : UnicodeString) : PtrInt; function WinCECompareUnicodeString(const s1, s2 : UnicodeString; Options : TCompareOptions) : PtrInt;
begin begin
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); Result:=DoCompareString(PWideChar(s1), PWideChar(s2), Length(s1), Length(s2), 0);
end; end;
@ -925,9 +931,7 @@ end;
procedure InitWinCEWidestrings; procedure InitWinCEWidestrings;
begin begin
widestringmanager.CompareWideStringProc:=@WinCECompareWideString; widestringmanager.CompareWideStringProc:=@WinCECompareWideString;
widestringmanager.CompareTextWideStringProc:=@WinCECompareTextWideString;
widestringmanager.CompareUnicodeStringProc:=@WinCECompareUnicodeString; widestringmanager.CompareUnicodeStringProc:=@WinCECompareUnicodeString;
widestringmanager.CompareTextUnicodeStringProc:=@WinCECompareTextUnicodeString;
widestringmanager.UpperAnsiStringProc:=@WinCEAnsiUpperCase; widestringmanager.UpperAnsiStringProc:=@WinCEAnsiUpperCase;
widestringmanager.LowerAnsiStringProc:=@WinCEAnsiLowerCase; widestringmanager.LowerAnsiStringProc:=@WinCEAnsiLowerCase;