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

lazutils: clean up

Browse Source
This commit is contained in:
mattias 2025-03-18 09:47:23 +01:00
parent 4cda63582d
commit a7b3a555a2
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazutf8.pas
View File

@ -227,8 +227,6 @@ var
implementation implementation
uses
Translations;
{$IFDEF WinCE} {$IFDEF WinCE}
// CP_UTF8 is missing in the windows unit of the Windows CE RTL // CP_UTF8 is missing in the windows unit of the Windows CE RTL
@ -3555,7 +3553,7 @@ begin
else else
Result := 2; Result := 2;
//writeln('UCS: FallBack Result = ',Result); //writeln('UCS: FallBack Result = ',Result);
//Try t find start of valid UTF8 codepoints //Try to find start of valid UTF8 codepoints
if (not Utf8TryFindCodepointStart(Org1, S1, CL1)) or if (not Utf8TryFindCodepointStart(Org1, S1, CL1)) or
not Utf8TryFindCodepointStart(Org2, S2, CL2) then not Utf8TryFindCodepointStart(Org2, S2, CL2) then
Exit; Exit;