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

LazUtf8: correct a StartCharIndex < 1 in Utf8Copy. Reason: consistent with System.Copy().

Browse Source
This commit is contained in:
Bart 2025-04-07 20:01:14 +02:00
parent c0f4946828
commit 162cbbfc1b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazutf8.pas
View File

@ -1125,6 +1125,8 @@ var
EndBytePos: PChar;
MaxBytes: PtrInt;
begin
if StartCharIndex < 1 then
StartCharIndex := 1; //Copy() does this correction too
StartBytePos:=UTF8CodepointStart(PChar(s),length(s),StartCharIndex-1);
if StartBytePos=nil then
Result:=''