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

LazUtils: Replace a faster IndexWord() in UTF16PosP. Issue , by Alexey Torgashin.

Browse Source
This commit is contained in:
Juha 2024-08-12 10:01:33 +03:00
parent 59f3382161
commit 15b22dd410
1 changed files with 1 additions and 9 deletions

10
components/lazutils/lazutf16.pas
View File

@ -128,14 +128,6 @@ begin
Result:=nil;
end;
function IndexOfWideChar(Const Buf: PWideChar; Len: PtrInt; b: WideChar): PtrInt;
begin
for Result:=0 to len-1 do
if buf[Result]=b then
Exit;
Result:=-1;
end;
// Helper used by UTF16Pos
function UTF16PosP(SearchForText: PWideChar; SearchForTextLen: PtrInt;
SearchInText: PWideChar; SearchInTextLen: PtrInt): PWideChar;
@ -148,7 +140,7 @@ begin
if (SearchForText=nil) or (SearchForTextLen=0) or (SearchInText=nil) then
exit;
while SearchInTextLen>0 do begin
p:=IndexOfWideChar(SearchInText,SearchInTextLen,SearchForText^);
p:=IndexWord(SearchInText, SearchInTextLen,Word(SearchForText^));
if p<0 then exit;
inc(SearchInText, p);
dec(SearchInTextLen, p);