|
@@ -830,7 +830,7 @@ begin
|
|
|
Count:=0;
|
|
Count:=0;
|
|
|
for I:=ord(Low(tToken)) to ord(High(tToken)) do
|
|
for I:=ord(Low(tToken)) to ord(High(tToken)) do
|
|
|
with TokenInfo^[TToken(I)] do
|
|
with TokenInfo^[TToken(I)] do
|
|
|
- if (str<>'') and (str[1] in['A'..'Z']) and (keyword=m_all) then
|
|
|
|
|
|
|
+ if (str<>'') and (str[1] in['A'..'Z']) {and (keyword=m_all)} then
|
|
|
Inc(Count);
|
|
Inc(Count);
|
|
|
GetReservedWordCount:=Count;
|
|
GetReservedWordCount:=Count;
|
|
|
end;
|
|
end;
|
|
@@ -846,7 +846,7 @@ begin
|
|
|
while (I<=ord(High(tToken))) and (Idx=-1) do
|
|
while (I<=ord(High(tToken))) and (Idx=-1) do
|
|
|
with TokenInfo^[TToken(I)] do
|
|
with TokenInfo^[TToken(I)] do
|
|
|
begin
|
|
begin
|
|
|
- if (str<>'') and (str[1] in['A'..'Z']) and (keyword=m_all) then
|
|
|
|
|
|
|
+ if (str<>'') and (str[1] in['A'..'Z']) { and (keyword=m_all)} then
|
|
|
begin
|
|
begin
|
|
|
Inc(Count);
|
|
Inc(Count);
|
|
|
if Count=Index then
|
|
if Count=Index then
|
|
@@ -4490,7 +4490,10 @@ end;
|
|
|
END.
|
|
END.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.53 2004-12-22 15:24:07 peter
|
|
|
|
|
|
|
+ Revision 1.54 2005-01-07 19:09:28 florian
|
|
|
|
|
+ * highlight keywords of all language modes
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.53 2004/12/22 15:24:07 peter
|
|
|
* fixed NODEBUG
|
|
* fixed NODEBUG
|
|
|
* set default target to the default target of the compiler
|
|
* set default target to the default target of the compiler
|
|
|
|
|
|
florian