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

codetools: fixed FindNextComment when MaxPos=0

Browse Source 
git-svn-id: trunk@33066 -
This commit is contained in:
mattias 2011-10-24 15:54:14 +00:00
parent 794b3c6aec
commit d4e4fe6f3c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/basiccodetools.pas
View File

@ -1153,7 +1153,7 @@ function FindNextComment(const ASource: string; StartPos: integer;
var var
NotFoundPos: Integer; NotFoundPos: Integer;
begin begin
NotFoundPos:=MaxPos+1; NotFoundPos:=MaxPos;
if (MaxPos>length(ASource)) or (MaxPos<1) then if (MaxPos>length(ASource)) or (MaxPos<1) then
MaxPos:=length(ASource); MaxPos:=length(ASource);
Result:=StartPos; Result:=StartPos;
@ -1185,7 +1185,7 @@ begin
end; end;
if Result>MaxPos then if Result>MaxPos then
if NotFoundPos>=1 then if NotFoundPos>=1 then
Result:=NotFoundPos Result:=NotFoundPos+1
else else
Result:=MaxPos+1; Result:=MaxPos+1;
end; end;