paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 15:37:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Fix a typo in UTF8LowerCaseFast. Merge request !303.

Browse Source
This commit is contained in:
Juha 2024-07-10 22:55:48 +03:00
parent 85f227d16f
commit c43cda1cc5
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

@ -2916,7 +2916,7 @@ begin
while c > 0 do begin
t := src^;
if (ord(t) and 128) <> 0 then
exit(UTF8UpperCase(AText));
exit(UTF8LowerCase(AText));
if (t in ['A'..'Z']) then
t := chr(ord(t) + 32);
dst^ := t;