⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 synhighlightercobol.pas

📁 SynEditStudio delphi 代码编辑器
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
                          if KeyComp('SWITCH-3') then Result := tkKey else
                            if KeyComp('USER') then Result := tkKey else
                              if KeyComp('SWITCH-7') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func64: TtkTokenKind;
begin
  if KeyComp('DB-RECORD-NAME') then Result := tkKey else
    if KeyComp('BOOLEAN') then Result := tkKey else
      if KeyComp('TRUE') then Result := tkBoolean else
        if KeyComp('TEST') then Result := tkKey else
          if KeyComp('UNIT') then Result := tkKey else
            if KeyComp('ZERO') then Result := tkString else
              if KeyComp('SPACE-FILL') then Result := tkKey else
                if KeyComp('SELECT') then Result := tkKey else
                  if KeyComp('SCREEN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func65: TtkTokenKind;
begin
  if KeyComp('ALPHABET') then Result := tkKey else
    if KeyComp('RANDOM') then Result := tkKey else
      if KeyComp('EXCEEDS') then Result := tkKey else
        if KeyComp('RELEASE') then Result := tkKey else
          if KeyComp('INDEXED') then Result := tkKey else
            if KeyComp('MODIFIED') then Result := tkKey else
              if KeyComp('INDICATE') then Result := tkKey else
                if KeyComp('CHAINING') then Result := tkKey else
                  if KeyComp('FINISH') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func66: TtkTokenKind;
begin
  if KeyComp('TITLE') then Result := tkPreprocessor else
    if KeyComp('SHIFT-IN') then Result := tkKey else
      if KeyComp('LENGTH') then Result := tkKey else
        if KeyComp('UPON') then Result := tkKey else
          if KeyComp('OTHER') then Result := tkKey else
            if KeyComp('ONLY') then Result := tkKey else
              if KeyComp('PROCEED') then Result := tkKey else
                if KeyComp('TYPE') then Result := tkKey else
                  if KeyComp('TIMES') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func67: TtkTokenKind;
begin
  if KeyComp('THRU') then Result := tkKey else
    if KeyComp('RESET') then Result := tkPreprocessor else
      if KeyComp('DISPLAY-7') then Result := tkKey else
        if KeyComp('AREA-VALUE') then Result := tkKey else
          if KeyComp('PURGE') then Result := tkKey else
            if KeyComp('UPDATE') then Result := tkKey else
              if KeyComp('RECEIVE') then Result := tkKey else
                if KeyComp('DISPLAY-5') then Result := tkKey else
                  if KeyComp('DISPLAY-1') then Result := tkKey else
                    if KeyComp('DISPLAY-4') then Result := tkKey else
                      if KeyComp('DEBUG-ITEM') then Result := tkKey else
                        if KeyComp('DISPLAY-2') then Result := tkKey else
                          if KeyComp('DISPLAY-6') then Result := tkKey else
                            if KeyComp('DISPLAY-9') then Result := tkKey else
                              if KeyComp('DISPLAY-3') then Result := tkKey else
                                if KeyComp('DISPLAY-8') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func68: TtkTokenKind;
begin
  if KeyComp('GIVING') then Result := tkKey else
    if KeyComp('PACKED-DECIMAL') then Result := tkKey else
      if KeyComp('PLUS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func69: TtkTokenKind;
begin
  if KeyComp('ASSIGN') then Result := tkKey else
    if KeyComp('BINARY') then Result := tkKey else
      if KeyComp('DEFAULT') then Result := tkKey else
        if KeyComp('DYNAMIC') then Result := tkKey else
          if KeyComp('QUEUE') then Result := tkKey else
            if KeyComp('TEXT') then Result := tkKey else
              if KeyComp('MESSAGE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func70: TtkTokenKind;
begin
  if KeyComp('USING') then Result := tkKey else
    if KeyComp('JUST') then Result := tkKey else
      if KeyComp('TALLY') then Result := tkKey else
        if KeyComp('ADDRESS') then Result := tkKey else
          if KeyComp('APPLY') then Result := tkKey else
            if KeyComp('VARIABLE') then Result := tkKey else
              if KeyComp('STOP') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func71: TtkTokenKind;
begin
  if KeyComp('INVALID') then Result := tkKey else
    if KeyComp('END-RECEIVE') then Result := tkKey else
      if KeyComp('NATIVE') then Result := tkKey else
        if KeyComp('SECURE') then Result := tkKey else
          if KeyComp('USAGE-MODE') then Result := tkKey else
            if KeyComp('JAPANESE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func72: TtkTokenKind;
begin
  if KeyComp('EXTEND') then Result := tkKey else
    if KeyComp('MODIFY') then Result := tkKey else
      if KeyComp('SORT') then Result := tkKey else
        if KeyComp('SUB-SCHEMA') then Result := tkKey else
          if KeyComp('FIRST') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func73: TtkTokenKind;
begin
  if KeyComp('COMMON') then Result := tkKey else
    if KeyComp('COUNT') then Result := tkKey else
      if KeyComp('SUB-QUEUE-3') then Result := tkKey else
        if KeyComp('NORMAL') then Result := tkKey else
          if KeyComp('COMMIT') then Result := tkKey else
            if KeyComp('NUMBER') then Result := tkKey else
              if KeyComp('SUB-QUEUE-1') then Result := tkKey else
                if KeyComp('SUB-QUEUE-2') then Result := tkKey else
                  if KeyComp('REWIND') then Result := tkKey else
                    if KeyComp('FORMAT') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func74: TtkTokenKind;
begin
  if KeyComp('ACQUIRE') then Result := tkKey else
    if KeyComp('CONNECT') then Result := tkKey else
      if KeyComp('DB-FORMAT-NAME') then Result := tkKey else
        if KeyComp('TENANT') then Result := tkKey else
          if KeyComp('GREATER') then Result := tkKey else
            if KeyComp('HIGH-VALUE') then Result := tkString else
              if KeyComp('ERROR') then Result := tkKey else
                if KeyComp('VALIDATE') then Result := tkKey else
                  if KeyComp('SUBFILE') then Result := tkKey else
                    if KeyComp('REPEATED') then Result := tkKey else
                      if KeyComp('ROLLBACK') then Result := tkKey else
                        if KeyComp('INITIAL') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func75: TtkTokenKind;
begin
  if KeyComp('OWNER') then Result := tkKey else
    if KeyComp('WRITE') then Result := tkKey else
      if KeyComp('GENERATE') then Result := tkKey else
        if KeyComp('EVERY') then Result := tkKey else
          if KeyComp('EQUALS') then Result := tkKey else
            if KeyComp('ADVANCING') then Result := tkKey else
              if KeyComp('RENAMES') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func76: TtkTokenKind;
begin
  if KeyComp('ASCENDING') then Result := tkKey else
    if KeyComp('UNTIL') then Result := tkKey else
      if KeyComp('RERUN') then Result := tkKey else
        if KeyComp('UNLOCK') then Result := tkKey else
          if KeyComp('PRIOR') then Result := tkKey else
            if KeyComp('DEBUGGING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func77: TtkTokenKind;
begin
  if KeyComp('GROUP') then Result := tkKey else
    if KeyComp('CHARACTER') then Result := tkKey else
      if KeyComp('EXHIBIT') then Result := tkKey else
        if KeyComp('LENGTH-CHECK') then Result := tkKey else
          if KeyComp('RECORD-NAME') then Result := tkKey else
            if KeyComp('STORE') then Result := tkKey else
              if KeyComp('ALPHABETIC') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func78: TtkTokenKind;
begin
  if KeyComp('DEPENDING') then Result := tkKey else
    if KeyComp('START') then Result := tkKey else
      if KeyComp('NULLS') then Result := tkString else
        if KeyComp('QUOTE') then Result := tkString else
          if KeyComp('COLUMN') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func79: TtkTokenKind;
begin
  if KeyComp('WORDS') then Result := tkKey else
    if KeyComp('EMPTY') then Result := tkKey else
      if KeyComp('PALETTE') then Result := tkKey else
        if KeyComp('REFERENCE') then Result := tkKey else
          if KeyComp('OCCURS') then Result := tkKey else
            if KeyComp('END-WRITE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func80: TtkTokenKind;
begin
  if KeyComp('VALUES') then Result := tkKey else
    if KeyComp('INPUT') then Result := tkKey else
      if KeyComp('LOCALLY') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func81: TtkTokenKind;
begin
  if KeyComp('PRINTER-1') then Result := tkKey else
    if KeyComp('SOURCE') then Result := tkKey else
      if KeyComp('ROUNDED') then Result := tkKey else
        if KeyComp('BEGINNING') then Result := tkKey else
          if KeyComp('SERVICE') then Result := tkPreprocessor else
            if KeyComp('DELIMITED') then Result := tkKey else
              if KeyComp('STANDARD') then Result := tkKey else
                if KeyComp('KEYBOARD') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func82: TtkTokenKind;
begin
  if KeyComp('ENTRY') then Result := tkKey else
    if KeyComp('RECORDS') then Result := tkKey else
      if KeyComp('LIMITS') then Result := tkKey else
        if KeyComp('PROGRAM-ID') then Result := tkKey else
          if KeyComp('END-START') then Result := tkKey else
            if KeyComp('SWITCH') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func83: TtkTokenKind;
begin
  if KeyComp('MORE-LABELS') then Result := tkKey else
    if KeyComp('WITHIN') then Result := tkKey else
      if KeyComp('NEGATIVE') then Result := tkKey else
        if KeyComp('I-O-CONTROL') then Result := tkKey else
          if KeyComp('NUMERIC') then Result := tkKey else
            if KeyComp('ZEROS') then Result := tkString else
              if KeyComp('AUTHOR') then Result := tkKey else
                if KeyComp('CONSOLE') then Result := tkKey else
                  if KeyComp('SEGMENT') then Result := tkKey else
                    if KeyComp('EXECUTE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func84: TtkTokenKind;
begin
  if KeyComp('COMMAND-LINE') then Result := tkKey else
    if KeyComp('DESCENDING') then Result := tkKey else
      if KeyComp('ZERO-FILL') then Result := tkKey else
        if KeyComp('CRT-UNDER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func85: TtkTokenKind;
begin
  if KeyComp('SENTENCE') then Result := tkKey else
    if KeyComp('CONTAINED') then Result := tkKey else
      if KeyComp('REDEFINES') then Result := tkKey else
        if KeyComp('BOTTOM') then Result := tkKey else
          if KeyComp('REPLACING') then Result := tkKey else
            if KeyComp('SECTION') then Result := tkKey else
              if KeyComp('INSERT') then Result := tkPreprocessor else
                if KeyComp('SEPARATE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func86: TtkTokenKind;
begin
  if KeyComp('PARAGRAPH') then Result := tkKey else
    if KeyComp('FOOTING') then Result := tkKey else
      if KeyComp('INSPECT') then Result := tkKey else
        if KeyComp('REMOVAL') then Result := tkKey else
          if KeyComp('DISPLAY') then Result := tkKey else
            if KeyComp('OMITTED') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func87: TtkTokenKind;
begin
  if KeyComp('DB-STATUS') then Result := tkKey else
    if KeyComp('ROLLING') then Result := tkKey else
      if KeyComp('INITIATE') then Result := tkKey else
        if KeyComp('EVALUATE') then Result := tkKey else
          if KeyComp('STRING') then Result := tkKey else
            if KeyComp('REMAINDER') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func88: TtkTokenKind;
begin
  if KeyComp('PROGRAM') then Result := tkKey else
    if KeyComp('DATE-COMPILED') then Result := tkKey else
      if KeyComp('HIGHLIGHT') then Result := tkKey else
        if KeyComp('ZEROES') then Result := tkString else Result := tkIdentifier;
end;

function TSynCobolSyn.Func89: TtkTokenKind;
begin
  if KeyComp('MODULES') then Result := tkKey else
    if KeyComp('MEMORY') then Result := tkKey else
      if KeyComp('SEQUENCE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func90: TtkTokenKind;
begin
  if KeyComp('TRAILING') then Result := tkKey else
    if KeyComp('EMPTY-CHECK') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func91: TtkTokenKind;
begin
  if KeyComp('CONTENT') then Result := tkKey else
    if KeyComp('END-EVALUATE') then Result := tkKey else
      if KeyComp('UNEQUAL') then Result := tkKey else
        if KeyComp('END-STRING') then Result := tkKey else
          if KeyComp('PERFORM') then Result := tkKey else
            if KeyComp('DUPLICATE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func92: TtkTokenKind;
begin
  if KeyComp('PICTURE') then Result := tkKey else
    if KeyComp('RELATIVE') then Result := tkKey else
      if KeyComp('TERMINAL') then Result := tkKey else
        if KeyComp('REPORT') then Result := tkKey else
          if KeyComp('LOW-VALUE') then Result := tkString else
            if KeyComp('RESERVE') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func93: TtkTokenKind;
begin
  if KeyComp('ALLOWING') then Result := tkKey else
    if KeyComp('HIGH-VALUES') then Result := tkString else
      if KeyComp('INDICATOR') then Result := tkKey else
        if KeyComp('AUTO-SKIP') then Result := tkKey else
          if KeyComp('COLLATING') then Result := tkKey else
            if KeyComp('COMPUTE') then Result := tkKey else
              if KeyComp('RECORDING') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func94: TtkTokenKind;
begin
  if KeyComp('RELATION') then Result := tkKey else
    if KeyComp('SESSION-ID') then Result := tkKey else
      if KeyComp('CURSOR') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func95: TtkTokenKind;
begin
  if KeyComp('CONTAINS') then Result := tkKey else
    if KeyComp('END-PERFORM') then Result := tkKey else
      if KeyComp('DELIMITER') then Result := tkKey else
        if KeyComp('PROCESS') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCobolSyn.Func96: TtkTokenKind;
begin
  if KeyComp('CHARACTERS') then Result := tkKey else
    if KeyComp('VARYING') then Result := tkKey else
      if KeyComp('RETURN') then Result := tkKey else
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -