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

codetools: fixed GetIdentStartEndAtPosition if pos behind source

Browse Source 
git-svn-id: branches/fixes_1_8@56199 -
This commit is contained in:
mattias 2017-10-25 20:22:00 +00:00
parent 86165e04d5
commit 7626be6016
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/basiccodetools.pas
View File

@ -1823,11 +1823,13 @@ begin
while (IdentEnd<=length(Source)) while (IdentEnd<=length(Source))
and (IsIdentChar[Source[IdentEnd]]) do and (IsIdentChar[Source[IdentEnd]]) do
inc(IdentEnd); inc(IdentEnd);
while (IdentStart<IdentEnd) while (IdentStart<Position)
and (not IsIdentStartChar[Source[IdentStart]]) do and (not IsIdentStartChar[Source[IdentStart]]) do
inc(IdentStart); inc(IdentStart);
if (IdentStart>1) and (Source[IdentStart-1]='&') then if (IdentStart>1) and (Source[IdentStart-1]='&') then
dec(IdentStart); dec(IdentStart);
if (IdentStart>length(Source)) or not IsIdentStartChar[Source[IdentStart]] then
IdentEnd:=IdentStart;
end; end;
function GetIdentStartPosition(const Source: string; Position: integer function GetIdentStartPosition(const Source: string; Position: integer