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

codetools: identifier completion fixed empy Prefix

Browse Source 
git-svn-id: trunk@57038 -
This commit is contained in:
mattias 2018-01-10 08:30:25 +00:00
parent 88450bc47a
commit b8a4422c7f
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/basiccodetools.pas
View File

@ -4422,8 +4422,8 @@ function IdentifierPos(Search, Identifier: PChar): PtrInt;
var
i: Integer;
begin
if (Search=nil) or (Search^=#0) then exit(-1);
if Identifier=nil then exit(-1);
if (Search=nil) or (Search^=#0) then exit(0);
Result:=0;
while (IsIdentChar[Identifier[Result]]) do begin
if UpChars[Search^]=UpChars[Identifier[Result]] then begin

4
components/codetools/identcompletiontool.pas
View File

@ -637,7 +637,9 @@ begin
if FExtendedFilter then
i:=IdentifierPos(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier)))
else if ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier))) then
i:=0;
i:=0
else
i:=-1;
if i=0 then begin
{$IFDEF ShowFilteredIdents}
DebugLn(['::: FILTERED ITEM ',FFilteredList.Count,' ',CurItem.Identifier]);