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

IDE: word completion: better match performance: fixes

Browse Source 
git-svn-id: trunk@58169 -
This commit is contained in:
ondrej 2018-06-07 14:55:56 +00:00
parent 5b5d75c9da
commit 4e66d32e35
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/wordcompletion.pp
View File

@ -81,9 +81,9 @@ var
begin
Result:=0;
SubLen := Length(SubStr);
if (SubLen > 0) and (Offset > 0) and (Offset <= Cardinal(Length(S))) then
if (SubLen > 0) and (Offset > 0) and (Offset <= Cardinal(LastPos)) then
begin
MaxLen := Length(S)- SubLen;
MaxLen := LastPos- SubLen;
SubFirst := SubStr[1];
i := IndexByte(S[Offset],LastPos - Offset + 1, Byte(SubFirst));
while (i >= 0) and ((i + sizeint(Offset) - 1) <= MaxLen) do
@ -94,7 +94,7 @@ begin
Exit(i + SizeInt(Offset));
//point Offset to next char in S
Offset := sizeuint(i) + Offset + 1;
i := IndexByte(S[Offset],Length(S) - Offset + 1, Byte(SubFirst));
i := IndexByte(S[Offset],LastPos - Offset + 1, Byte(SubFirst));
end;
end;
end;
@ -120,9 +120,9 @@ var
begin
Result:=0;
SubLen := Length(SubStrUp);
if (SubLen > 0) and (Offset > 0) and (Offset <= Cardinal(Length(S))) then
if (SubLen > 0) and (Offset > 0) and (Offset <= Cardinal(LastPos)) then
begin
MaxLen := Length(S)- SubLen;
MaxLen := LastPos- SubLen;
SubFirst := SubStrUp[1];
SubFirstLo := LowerCase(SubStrUp[1]);
i := IndexByteI(PChar(@S[Offset]),LastPos - Offset + 1, SubFirst, SubFirstLo);
@ -134,7 +134,7 @@ begin
Exit(i + SizeInt(Offset));
//point Offset to next char in S
Offset := sizeuint(i) + Offset + 1;
i := IndexByte(S[Offset],Length(S) - Offset + 1, Byte(SubFirst));
i := IndexByte(S[Offset],LastPos - Offset + 1, Byte(SubFirst));
end;
end;
end;