paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:09:21 +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 var
i: Integer; i: Integer;
begin begin
if (Search=nil) or (Search^=#0) then exit(-1);
if Identifier=nil then exit(-1); if Identifier=nil then exit(-1);
if (Search=nil) or (Search^=#0) then exit(0);
Result:=0; Result:=0;
while (IsIdentChar[Identifier[Result]]) do begin while (IsIdentChar[Identifier[Result]]) do begin
if UpChars[Search^]=UpChars[Identifier[Result]] then begin if UpChars[Search^]=UpChars[Identifier[Result]] then begin

4
components/codetools/identcompletiontool.pas
View File

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