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

* Fix for bug ID

Browse Source 
git-svn-id: trunk@32271 -
This commit is contained in:
michael 2015-11-08 10:15:50 +00:00
parent 2c566ffcb9
commit dd87c4f34f
1 changed files with 2 additions and 17 deletions

19
packages/iosxlocale/src/iosxwstr.pp
View File

@ -357,31 +357,18 @@ implementation
end;
function CompareWideString(const s1, s2 : WideString) : PtrInt;
function CompareWideString(const s1, s2 : WideString; Options : TCompareOptions) : PtrInt;
var
cfstr1, cfstr2: CFStringRef;
temp1, temp2: RawByteString;
begin
cfstr1:=CFStringCreateFromWideDataOptionallyViaUUTF8String(pwidechar(s1),length(s1),temp1);
cfstr2:=CFStringCreateFromWideDataOptionallyViaUUTF8String(pwidechar(s2),length(s2),temp2);
result:=CompareCFStrings(cfstr1,cfstr2,false);
result:=CompareCFStrings(cfstr1,cfstr2,coIgnoreCase in Options);
CFRelease(cfstr1);
CFRelease(cfstr2);
end;
function CompareTextWideString(const s1, s2 : WideString): PtrInt;
var
cfstr1, cfstr2: CFStringRef;
temp1, temp2: RawByteString;
begin
cfstr1:=CFStringCreateFromWideDataOptionallyViaUUTF8String(pwidechar(s1),length(s1),temp1);
cfstr2:=CFStringCreateFromWideDataOptionallyViaUUTF8String(pwidechar(s2),length(s2),temp2);
result:=CompareCFStrings(cfstr1,cfstr2,true);
CFRelease(cfstr1);
CFRelease(cfstr2);
end;
function InternalCodePointLength(const Str: PChar; cfcp: CFStringEncoding; maxlookahead: ptrint): PtrInt;
var
cfstr: CFStringRef;
@ -610,7 +597,6 @@ implementation
LowerWideStringProc:=@LowerWideString;
CompareWideStringProc:=@CompareWideString;
CompareTextWideStringProc:=@CompareTextWideString;
CharLengthPCharProc:=@CharLengthPChar;
CodePointLengthProc:=@CodePointLength;
@ -633,7 +619,6 @@ implementation
UpperUnicodeStringProc:=@UpperWideString;
LowerUnicodeStringProc:=@LowerWideString;
CompareUnicodeStringProc:=@CompareWideString;
CompareTextUnicodeStringProc:=@CompareTextWideString;
{ CodePage }
GetStandardCodePageProc:=@GetStandardCodePage;
end;