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

SynEdit: fixed highlighting 1.02E-5 and similar. Issue: #0026245

Browse Source 
git-svn-id: trunk@46372 -
This commit is contained in:
martin 2014-09-30 14:04:46 +00:00
parent 49860d6d3d
commit ddf7f70338
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/synhighlighterpas.pp
View File

@ -672,7 +672,7 @@ begin
mHashTable[Char(I)] := 0;
end;
IsIntegerChar[I]:=(I in ['0'..'9', 'A'..'F', 'a'..'f']);
IsNumberChar[I]:=(I in ['0'..'9', '.', 'e', 'E']);
IsNumberChar[I]:=(I in ['0'..'9']);
IsSpaceChar[I]:=(I in [#1..#9, #11, #12, #14..#32]);
IsUnderScoreOrNumberChar[I]:=(I in ['_','0'..'9']);
IsLetterChar[I]:=(I in ['a'..'z','A'..'Z']);
@ -2753,10 +2753,15 @@ begin
inc(Run);
fTokenID := tkNumber;
if Run<fLineLen then begin
while (IsNumberChar[FLine[Run]]) do begin
if (FLine[Run]='.') and (fLine[Run+1]='.') then
break;
while (IsNumberChar[FLine[Run]]) do inc(Run);
if (FLine[Run]='.') and not(fLine[Run+1]='.') then begin
inc(Run);
while (IsNumberChar[FLine[Run]]) do inc(Run);
end;
if (FLine[Run]='e') or (fLine[Run]='E') then begin
inc(Run);
if (FLine[Run]='+') or (fLine[Run]='-') then inc(Run);
while (IsNumberChar[FLine[Run]]) do inc(Run);
end;
end;
end;