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

📄 synhighlightercache.pas

📁 一个mwEdit控件原码,比mwCuuEdit0.92a功能先进.
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
function TSynCacheSyn.Func54: TtkTokenKind;
begin
  if KeyComp('$stack') then Result := tkKey else
    if KeyComp('$zis') then Result := tkKey else
      if KeyComp('$zth') then Result := tkKey else
        if KeyComp('$stack') then Result := tkKey else
          if KeyComp('close') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func56: TtkTokenKind;
begin
  if KeyComp('$zdate') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func57: TtkTokenKind;
begin
  if KeyComp('goto') then Result := tkKey else
    if KeyComp('$zcyc') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func58: TtkTokenKind;
begin
  if KeyComp('zload') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func59: TtkTokenKind;
begin
  if KeyComp('view') then Result := tkKey else
    if KeyComp('$estack') then Result := tkKey else
      if KeyComp('$zname') then Result := tkKey else
        if KeyComp('$view') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func60: TtkTokenKind;
begin
  if KeyComp('$list') then Result := tkKey else
    if KeyComp('$etrap') then Result := tkKey else
      if KeyComp('$zlog') then Result := tkKey else
        if KeyComp('$order') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func61: TtkTokenKind;
begin
  if KeyComp('$ztan') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func62: TtkTokenKind;
begin
  if KeyComp('$zchild') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func63: TtkTokenKind;
begin
  if KeyComp('$next') then Result := tkKey else
    if KeyComp('zbreak') then Result := tkKey else
      if KeyComp('$zcos') then Result := tkKey else
        if KeyComp('$zhex') then Result := tkKey else
          if KeyComp('$zmode') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func64: TtkTokenKind;
begin
  if KeyComp('$zzdec') then Result := tkKey else
    if KeyComp('$test') then Result := tkKey else
      if KeyComp('$select') then Result := tkKey else
        if KeyComp('$zcot') then Result := tkKey else
          if KeyComp('$zdateh') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func65: TtkTokenKind;
begin
  if KeyComp('$zts') then Result := tkKey else
    if KeyComp('$zwp') then Result := tkKey else
      if KeyComp('$random') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func66: TtkTokenKind;
begin
  if KeyComp('$length') then Result := tkKey else
    if KeyComp('$zseek') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func67: TtkTokenKind;
begin
  if KeyComp('quit') then Result := tkKey else
    if KeyComp('$zerr') then Result := tkKey else
      if KeyComp('$quit') then Result := tkKey else
        if KeyComp('$zwbp') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func68: TtkTokenKind;
begin
  if KeyComp('$zsin') then Result := tkKey else
    if KeyComp('$zlchar') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func69: TtkTokenKind;
begin
  if KeyComp('$text') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func70: TtkTokenKind;
begin
  if KeyComp('zkill') then Result := tkKey else
    if KeyComp('$zincr') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func71: TtkTokenKind;
begin
  if KeyComp('$zexp') then Result := tkKey else
    if KeyComp('$zcvt') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func73: TtkTokenKind;
begin
  if KeyComp('zsave') then Result := tkKey else
    if KeyComp('$ztime') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func75: TtkTokenKind;
begin
  if KeyComp('write') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func76: TtkTokenKind;
begin
  if KeyComp('$zbitand') then Result := tkKey else
    if KeyComp('$tlevel') then Result := tkKey else
      if KeyComp('$zpos') then Result := tkKey else Result := tkIdentifier;
end;

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

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

function TSynCacheSyn.Func79: TtkTokenKind;
begin
  if KeyComp('$zlascii') then Result := tkKey else
    if KeyComp('$zwchar') then Result := tkKey else
      if KeyComp('$fnumber') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func80: TtkTokenKind;
begin
  if KeyComp('$zsqr') then Result := tkKey else
    if KeyComp('$zsearch') then Result := tkKey else
      if KeyComp('$zwpack') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func81: TtkTokenKind;
begin
  if KeyComp('ztrap') then Result := tkKey else
    if KeyComp('$ztimeh') then Result := tkKey else
      if KeyComp('$ztrap') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func82: TtkTokenKind;
begin
  if KeyComp('$inumber') then Result := tkKey else
    if KeyComp('$zwbpack') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func83: TtkTokenKind;
begin
  if KeyComp('$zarctan') then Result := tkKey else
    if KeyComp('$qlength') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func84: TtkTokenKind;
begin
  if KeyComp('$znspace') then Result := tkKey else
    if KeyComp('znspace') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func85: TtkTokenKind;
begin
  if KeyComp('$storage') then Result := tkKey else
    if KeyComp('$zarccos') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func86: TtkTokenKind;
begin
  if KeyComp('$zorder') then Result := tkKey else
    if KeyComp('$zorder') then Result := tkKey else
      if KeyComp('$query') then Result := tkKey else
        if KeyComp('$listdata') then Result := tkKey else Result := tkIdentifier;
end;

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

function TSynCacheSyn.Func88: TtkTokenKind;
begin
  if KeyComp('$zutil') then Result := tkKey else
    if KeyComp('$zbitlen') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func89: TtkTokenKind;
begin
  if KeyComp('$zbitget') then Result := tkKey else
    if KeyComp('$znext') then Result := tkKey else
      if KeyComp('$zzhex') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func90: TtkTokenKind;
begin
  if KeyComp('$zboolean') then Result := tkKey else
    if KeyComp('$zbitor') then Result := tkKey else
      if KeyComp('$zarcsin') then Result := tkKey else
        if KeyComp('$zbitfind') then Result := tkKey else
          if KeyComp('$zwidth') then Result := tkKey else
            if KeyComp('$zwascii') then Result := tkKey else
              if KeyComp('$horolog') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func91: TtkTokenKind;
begin
  if KeyComp('$extract') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func92: TtkTokenKind;
begin
  if KeyComp('$reverse') then Result := tkKey else
    if KeyComp('$listget') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func93: TtkTokenKind;
begin
  if KeyComp('zquit') then Result := tkKey else
    if KeyComp('$listfind') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func94: TtkTokenKind;
begin
  if KeyComp('trollback') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func95: TtkTokenKind;
begin
  if KeyComp('$ziswide') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func98: TtkTokenKind;
begin
  if KeyComp('$zsort') then Result := tkKey else
    if KeyComp('tstart') then Result := tkKey else
      if KeyComp('$principal') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func100: TtkTokenKind;
begin
  if KeyComp('$zparent') then Result := tkKey else
    if KeyComp('$zerror') then Result := tkKey else
      if KeyComp('$zwunp') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func101: TtkTokenKind;
begin
  if KeyComp('$zbitset') then Result := tkKey else
    if KeyComp('zwrite') then Result := tkKey else
      if KeyComp('$increment') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func102: TtkTokenKind;
begin
  if KeyComp('$zwbunp') then Result := tkKey else
    if KeyComp('^$routine') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func103: TtkTokenKind;
begin
  if KeyComp('$zdatetime') then Result := tkKey else
    if KeyComp('$zpower') then Result := tkKey else
      if KeyComp('zprint') then Result := tkKey else Result := tkIdentifier;
end;

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

function TSynCacheSyn.Func105: TtkTokenKind;
begin
  if KeyComp('$zreference') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func106: TtkTokenKind;
begin
  if KeyComp('$zbitnot') then Result := tkKey else
    if KeyComp('zzdump') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func107: TtkTokenKind;
begin
  if KeyComp('tcommint') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func108: TtkTokenKind;
begin
  if KeyComp('$zstrip') then Result := tkKey else
    if KeyComp('$listbuild') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func110: TtkTokenKind;
begin
  if KeyComp('$translate') then Result := tkKey else
    if KeyComp('$justify') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func111: TtkTokenKind;
begin
  if KeyComp('$zstorage') then Result := tkKey else
    if KeyComp('zinsert') then Result := tkKey else
      if KeyComp('$zdatetimeh') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func114: TtkTokenKind;
begin
  if KeyComp('$zbitxor') then Result := tkKey else
    if KeyComp('$zbitstr') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func115: TtkTokenKind;
begin
  if KeyComp('$zwunpack') then Result := tkKey else
    if KeyComp('$zzenkaku') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func116: TtkTokenKind;
begin
  if KeyComp('$zhorolog') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func117: TtkTokenKind;
begin
  if KeyComp('$zwbunpack') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func123: TtkTokenKind;
begin
  if KeyComp('$zconvert') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func126: TtkTokenKind;
begin
  if KeyComp('$listlength') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func127: TtkTokenKind;
begin
  if KeyComp('$zincrement') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func128: TtkTokenKind;
begin
  if KeyComp('$zversion') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func130: TtkTokenKind;
begin
  if KeyComp('$zbitcount') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func142: TtkTokenKind;
begin
  if KeyComp('$ztimestamp') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func143: TtkTokenKind;
begin
  if KeyComp('$zposition') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func144: TtkTokenKind;
begin
  if KeyComp('$qsubscript') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.Func151: TtkTokenKind;
begin
  if KeyComp('$zprevious') then Result := tkKey else Result := tkIdentifier;
end;

function TSynCacheSyn.AltFunc: TtkTokenKind;
begin
  Result := tkIdentifier;
end;

//------------------------------------------------------------------------------
function TSynCacheSyn.IdentKind(MayBe: PChar): TtkTokenKind;
var
  HashKey: Integer;
begin
  fToIdent := MayBe;
  HashKey := KeyHash(MayBe);
  if (HashKey < 152) and (HashKey>-1) then
    Result := fIdentFuncTable[HashKey]
  else Result := tkIdentifier;
end;

//------------------------------------------------------------------------------
procedure TSynCacheSyn.MakeMethodTables;
var
  I: Char;
begin
  for I := #0 to #255 do
    case I of
      #13: fProcTable[I] := CRProc;
      ';': fProcTable[I] := CommentProc;
      'A'..'Z', 'a'..'z', '%', '^': fProcTable[I] := IdentProc;
      '$': fProcTable[i] := FuncProc;
      '@': fProcTable[i] := IndirectProc;
      #10: fProcTable[I] := LFProc;
      #0: fProcTable[I] := NullProc;
      '0'..'9': fProcTable[I] := NumberProc;
      #1..#9, #11, #12, #14..#32: fProcTable[I] := SpaceProc;
      #34: fProcTable[I] := StringProc;
      '(',')','+','-','[',']','.','<','>','''','=',',',':','/','\',
      '?','!','_','*': fProcTable[i] := SymbolProc;
1234

⌨️ 快捷键说明

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