paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-16 13:29:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: PasWString: fix infinite recursion in WideCompareText.

Browse Source 
git-svn-id: trunk@52076 -
This commit is contained in:
bart 2016-03-28 10:57:53 +00:00
parent 9aab2a374d
commit 9ea2b541f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/paswstring.pas
View File

@ -179,7 +179,7 @@ begin
a := UTF8LowerCase(a); a := UTF8LowerCase(a);
b := UTF16ToUTF8(PWideChar(s2),length(s2)); b := UTF16ToUTF8(PWideChar(s2),length(s2));
b := UTF8LowerCase(b); b := UTF8LowerCase(b);
result := UTF8CompareText(a,b); result := UTF8CompareStr(a,b);
end; end;
function CharLengthPChar(const Str: PChar): PtrInt; function CharLengthPChar(const Str: PChar): PtrInt;