synhighlighterkix.pas

SynEditStudio delphi 代码编辑器

function TSynKixSyn.Func7: TtkTokenKind;
begin
  if KeyComp('CD') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func15: TtkTokenKind;
begin
  if KeyComp('IF') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func17: TtkTokenKind;
begin
  if KeyComp('MD') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func18: TtkTokenKind;
begin
  if KeyComp('BIG') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func19: TtkTokenKind;
begin
  if KeyComp('DO') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func21: TtkTokenKind;
begin
  if KeyComp('DEL') then Result := tkKey else
    if KeyComp('AT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func22: TtkTokenKind;
begin
  if KeyComp('GO') then Result := tkKey else
    if KeyComp('RD') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func23: TtkTokenKind;
begin
  if KeyComp('ASC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func25: TtkTokenKind;
begin
  if KeyComp('LM') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func26: TtkTokenKind;
begin
  if KeyComp('DIM') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func28: TtkTokenKind;
begin
  if KeyComp('BEEP') then Result := tkKey else
    if KeyComp('CASE') then Result := tkKey else
      if KeyComp('CALL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func29: TtkTokenKind;
begin
  if KeyComp('CHR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func30: TtkTokenKind;
begin
  if KeyComp('DAY') then Result := tkKey else
    if KeyComp('DATE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func31: TtkTokenKind;
begin
  if KeyComp('DIR') then Result := tkKey else
    if KeyComp('LEN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func32: TtkTokenKind;
begin
  if KeyComp('SID') then Result := tkKey else
    if KeyComp('GET') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func34: TtkTokenKind;
begin
  if KeyComp('CLS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func35: TtkTokenKind;
begin
  if KeyComp('VAL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func36: TtkTokenKind;
begin
  if KeyComp('RND') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func37: TtkTokenKind;
begin
  if KeyComp('BREAK') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func38: TtkTokenKind;
begin
  if KeyComp('DOS') then Result := tkKey else
    if KeyComp('RAS') then Result := tkKey else
      if KeyComp('ENDIF') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func40: TtkTokenKind;
begin
  if KeyComp('LCASE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func41: TtkTokenKind;
begin
  if KeyComp('ELSE') then Result := tkKey else
    if KeyComp('BOX') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func44: TtkTokenKind;
begin
  if KeyComp('KIX') then Result := tkKey else
    if KeyComp('SET') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func45: TtkTokenKind;
begin
  if KeyComp('USE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func47: TtkTokenKind;
begin
  if KeyComp('TIME') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func49: TtkTokenKind;
begin
  if KeyComp('YEAR') then Result := tkKey else
    if KeyComp('UCASE') then Result := tkKey else
      if KeyComp('GLOBAL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func50: TtkTokenKind;
begin
  if KeyComp('ADDKEY') then Result := tkKey else
    if KeyComp('OPEN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func51: TtkTokenKind;
begin
  if KeyComp('GETS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func52: TtkTokenKind;
begin
  if KeyComp('PWAGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func53: TtkTokenKind;
begin
  if KeyComp('RUN') then Result := tkKey else
    if KeyComp('SITE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func54: TtkTokenKind;
begin
  if KeyComp('PLAY') then Result := tkKey else
    if KeyComp('CLOSE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func55: TtkTokenKind;
begin
  if KeyComp('SRND') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func56: TtkTokenKind;
begin
  if KeyComp('DOMAIN') then Result := tkKey else
    if KeyComp('SETL') then Result := tkKey else
      if KeyComp('SHELL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func57: TtkTokenKind;
begin
  if KeyComp('WHILE') then Result := tkKey else
    if KeyComp('SMALL') then Result := tkKey else
      if KeyComp('SETM') then Result := tkKey else
        if KeyComp('GOTO') then Result := tkKey else
          if KeyComp('SLEEP') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func58: TtkTokenKind;
begin
  if KeyComp('COOKIE1') then Result := tkKey else
    if KeyComp('LOOP') then Result := tkKey else
      if KeyComp('EXIT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func59: TtkTokenKind;
begin
  if KeyComp('COPY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func61: TtkTokenKind;
begin
  if KeyComp('LOGOFF') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func62: TtkTokenKind;
begin
  if KeyComp('DELKEY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func63: TtkTokenKind;
begin
  if KeyComp('COLOR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func64: TtkTokenKind;
begin
  if KeyComp('GOSUB') then Result := tkKey else
    if KeyComp('SELECT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func65: TtkTokenKind;
begin
  if KeyComp('PRIV') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func67: TtkTokenKind;
begin
  if KeyComp('QUIT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func68: TtkTokenKind;
begin
  if KeyComp('LDOMAIN') then Result := tkKey else
    if KeyComp('READLINE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func69: TtkTokenKind;
begin
  if KeyComp('DELTREE') then Result := tkKey else
    if KeyComp('INWIN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func70: TtkTokenKind;
begin
  if KeyComp('LDRIVE') then Result := tkKey else
    if KeyComp('MONTH') then Result := tkKey else
      if KeyComp('ADDRESS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func72: TtkTokenKind;
begin
  if KeyComp('MDAYNO') then Result := tkKey else
    if KeyComp('HOMEDIR') then Result := tkKey else
      if KeyComp('LTRIM') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func73: TtkTokenKind;
begin
  if KeyComp('CURDIR') then Result := tkKey else
    if KeyComp('LOADKEY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func74: TtkTokenKind;
begin
  if KeyComp('WKSTA') then Result := tkKey else
    if KeyComp('ERROR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func76: TtkTokenKind;
begin
  if KeyComp('LOADHIVE') then Result := tkKey else
    if KeyComp('USERID') then Result := tkKey else
      if KeyComp('UNTIL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func77: TtkTokenKind;
begin
  if KeyComp('EXIST') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func78: TtkTokenKind;
begin
  if KeyComp('RTRIM') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func79: TtkTokenKind;
begin
  if KeyComp('FLUSHKB') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func80: TtkTokenKind;
begin
  if KeyComp('INSTR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func82: TtkTokenKind;
begin
  if KeyComp('WDAYNO') then Result := tkKey else
    if KeyComp('DELVALUE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func83: TtkTokenKind;
begin
  if KeyComp('COMMENT') then Result := tkKey else
    if KeyComp('EXECUTE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func84: TtkTokenKind;
begin
  if KeyComp('DECTOHEX') then Result := tkKey else
    if KeyComp('YDAYNO') then Result := tkKey else
      if KeyComp('FULLNAME') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func85: TtkTokenKind;
begin
  if KeyComp('SETASCII') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func86: TtkTokenKind;
begin
  if KeyComp('DISPLAY') then Result := tkKey else
    if KeyComp('HOMESHR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func87: TtkTokenKind;
begin
  if KeyComp('ENDSELECT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func88: TtkTokenKind;
begin
  if KeyComp('SAVEKEY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func89: TtkTokenKind;
begin
  if KeyComp('READVALUE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func90: TtkTokenKind;
begin
  if KeyComp('MAXPWAGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func91: TtkTokenKind;
begin
  if KeyComp('SETTIME') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func93: TtkTokenKind;
begin
  if KeyComp('SERROR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func94: TtkTokenKind;
begin
  if KeyComp('READTYPE') then Result := tkKey else
    if KeyComp('ENUMKEY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func95: TtkTokenKind;
begin
  if KeyComp('LANROOT') then Result := tkKey else
    if KeyComp('IPADDRESS') then Result := tkKey else
      if KeyComp('HOSTNAME') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func96: TtkTokenKind;
begin
  if KeyComp('RETURN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func97: TtkTokenKind;
begin
  if KeyComp('SYSLANG') then Result := tkKey else
    if KeyComp('USERLANG') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func99: TtkTokenKind;
begin
  if KeyComp('HOMEDRIVE') then Result := tkKey else
    if KeyComp('WUSERID') then Result := tkKey else
      if KeyComp('MONTHNO') then Result := tkKey else
        if KeyComp('LSERVER') then Result := tkKey else
          if KeyComp('SUBSTR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func100: TtkTokenKind;
begin
  if KeyComp('LOGEVENT') then Result := tkKey else
    if KeyComp('INGROUP') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func102: TtkTokenKind;
begin
  if KeyComp('SENDKEYS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func104: TtkTokenKind;
begin
  if KeyComp('OLECALLFUNC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func105: TtkTokenKind;
begin
  if KeyComp('RSERVER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func108: TtkTokenKind;
begin
  if KeyComp('SETFOCUS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func109: TtkTokenKind;
begin
  if KeyComp('STARTDIR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func110: TtkTokenKind;
begin
  if KeyComp('MESSAGEBOX') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func111: TtkTokenKind;
begin
  if KeyComp('SENDMESSAGE') then Result := tkKey else
    if KeyComp('UNLOADHIVE') then Result := tkKey else
      if KeyComp('GETFILETIME') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func112: TtkTokenKind;
begin
  if KeyComp('OLECALLPROC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func114: TtkTokenKind;
begin
  if KeyComp('ENUMVALUE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func115: TtkTokenKind;
begin
  if KeyComp('WRITELINE') then Result := tkKey else
    if KeyComp('PASSWORD') then Result := tkKey else Result := tkIdentifier;
end;

function TSynKixSyn.Func116: TtkTokenKind;
begin