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

LazUtils: Optimize function UTF8StringReplace a little.

Browse Source
This commit is contained in:
Juha 2024-12-29 12:09:01 +02:00
parent 7b2f40cfb7
commit 277cc26bdc
1 changed files with 5 additions and 5 deletions

10
components/lazutils/lazutf8.pas
View File

@ -1211,9 +1211,9 @@ end;
function UTF8StringReplace(const S, OldPattern, NewPattern: String;
Flags: TReplaceFlags; out Count: Integer; const ALanguage: string=''): String;
var
SrcS, OldPtrn, TempS: string;
SrcS, OldPtrn: string;
PSrc, POrig: PChar;
CharLen, OldPatLen: Integer;
CharLen, OldPatLen, l: Integer;
OkToReplace: Boolean;
begin
Count := 0;
@ -1252,9 +1252,9 @@ begin
Inc(PSrc, CharLen); // Next Codepoint
// Copy a codepoint from original string and move forward
CharLen := UTF8CodepointSize(POrig);
SetLength(TempS{%H-}, CharLen);
System.Move(POrig^, TempS[1], CharLen);
Result := Result + TempS; // Copy one codepoint from original string
l := Length(Result);
SetLength(Result, l+CharLen); // Copy one codepoint from original string
System.Move(POrig^, Result[l+1], CharLen);
Inc(POrig, CharLen); // Next Codepoint
end;
end;