paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Return 1 also for char #0 in UTF8CharacterLengthFast. Matches the logic in UTF8CharacterLength.

Browse Source 
git-svn-id: trunk@52856 -
This commit is contained in:
juha 2016-08-21 19:48:01 +00:00
parent 2ee19afd56
commit 413f000fc0
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/lazutf8.pas
View File

@ -413,8 +413,7 @@ end;
function UTF8CharacterLengthFast(p: PChar): integer;
begin
case p^ of
#0 : Result := 0;
#1..#191,#255: Result := 1;
#0..#191,#255: Result := 1;
#192..#223 : Result := 2;
#224..#239 : Result := 3;
#240..#247 : Result := 4;