paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-18 00:02:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: fixed UTF8CharacterLengthFast

Browse Source 
git-svn-id: trunk@55218 -
This commit is contained in:
mattias 2017-06-04 20:18:38 +00:00
parent 549f824d8c
commit 6e41e1e216
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/lazutf8.pas
View File

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