>(ch = ''''_'''') or IsMBCSChar(ch)) do
begin
strToken:=strToken+ch;
ch := GetNextChar;
end;
dec(FPosition);
if(ReserveWords.IndexOf(strToken)>0) then
FOutput:=FOutput + ''''<strong><font color="blue">''''
+ strToken + ''''</font></strong>''''
else FOutput:=FOutput + strToken;
exit;
end;
//.........................
end;
end.
上一页 [1] [2] [3] |
