mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-27 06:37:08 +02:00
SynEdit: fixed highlighting 1.02E-5 and similar. Issue: #0026245
git-svn-id: trunk@46372 -
This commit is contained in:
parent
49860d6d3d
commit
ddf7f70338
@ -672,7 +672,7 @@ begin
|
|||||||
mHashTable[Char(I)] := 0;
|
mHashTable[Char(I)] := 0;
|
||||||
end;
|
end;
|
||||||
IsIntegerChar[I]:=(I in ['0'..'9', 'A'..'F', 'a'..'f']);
|
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]);
|
IsSpaceChar[I]:=(I in [#1..#9, #11, #12, #14..#32]);
|
||||||
IsUnderScoreOrNumberChar[I]:=(I in ['_','0'..'9']);
|
IsUnderScoreOrNumberChar[I]:=(I in ['_','0'..'9']);
|
||||||
IsLetterChar[I]:=(I in ['a'..'z','A'..'Z']);
|
IsLetterChar[I]:=(I in ['a'..'z','A'..'Z']);
|
||||||
@ -2753,10 +2753,15 @@ begin
|
|||||||
inc(Run);
|
inc(Run);
|
||||||
fTokenID := tkNumber;
|
fTokenID := tkNumber;
|
||||||
if Run<fLineLen then begin
|
if Run<fLineLen then begin
|
||||||
while (IsNumberChar[FLine[Run]]) do begin
|
while (IsNumberChar[FLine[Run]]) do inc(Run);
|
||||||
if (FLine[Run]='.') and (fLine[Run+1]='.') then
|
if (FLine[Run]='.') and not(fLine[Run+1]='.') then begin
|
||||||
break;
|
|
||||||
inc(Run);
|
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;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user