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

SynEdit: Fix to TSynFilteredMethodList.IndexOf (could return wrong index)

Browse Source 
git-svn-id: trunk@27812 -
This commit is contained in:
martin 2010-10-22 15:34:24 +00:00
parent c804b045c2
commit 421f4f7909
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/syneditmiscclasses.pp
View File

@ -1534,8 +1534,8 @@ function TSynFilteredMethodList.IndexOf(AHandler: TMethod): Integer;
begin
Result := FCount - 1;
while (Result >= 0) and
(FItems[Result].FHandler.Code <> AHandler.Code) and
(FItems[Result].FHandler.Data <> AHandler.Data)
( (FItems[Result].FHandler.Code <> AHandler.Code) or
(FItems[Result].FHandler.Data <> AHandler.Data) )
do
dec(Result);
end;
@ -1543,10 +1543,10 @@ end;
function TSynFilteredMethodList.IndexOf(AHandler: TMethod; AFilter: LongInt): Integer;
begin
Result := FCount - 1;
while (Result >= 0) and
(FItems[Result].FHandler.Code <> AHandler.Code) and
(FItems[Result].FHandler.Data <> AHandler.Data) and
(FItems[Result].FFilter <> AFilter)
while (Result >= 0) and (
(FItems[Result].FHandler.Code <> AHandler.Code) or
(FItems[Result].FHandler.Data <> AHandler.Data) or
(FItems[Result].FFilter <> AFilter) )
do
dec(Result);
end;