语法高亮

　2006-02-04 13:31:12　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺璇茬箲濮樸劑鍩€椤掍礁鍤柛鎾跺枎椤繐煤椤忓嫬鐎銈嗘礀閹冲酣宕滄导瀛樷拺闂侇偆鍋涢懟顖涙櫠椤斿墽纾煎璺猴功缁夎櫣鈧鍠栭…閿嬩繆濮濆矈妲烽梺绋款儐閹瑰洤螞閸愩劉妲堟繛鍡楃箲濞堟﹢姊绘担椋庝覆缂傚秮鍋撴繛瀛樼矤閸撶喖宕洪埀顒併亜閹烘垵鈧綊寮抽鍕厱閻庯綆浜烽煬顒傗偓瑙勬磻閸楀啿顕ｉ崐鐕佹Ь闂佸搫妫寸粻鎾诲蓟閵娾晜鍋嗛柛灞剧☉椤忥拷

核心提示：在 RichEdit 中实现代码着色下面的代码将以指定颜色对一些指定单词着色，就象delphi中的代码编辑器那样，语法高亮， PRocedure CodeColors(Form : TForm;Style : String; RichE : TRichedit; InVi

在 RichEdit 中实现代码着色

下面的代码将以指定颜色对一些指定单词着色，就象delphi中的代码编辑器那样。

PRocedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;                         InVisible : Boolean); const   // 符号...   CodeC1: array[0..20] of String = ('#','$','(',')','*',',',           '.','/',':',';','[',']','{','}','<','>',           '-','=','+','','@');   // 保留字...   CodeC2: array[0..44] of String = ('and','as','begin',           'case','char','class','const','downto',           'else','end','except','finally','for',           'forward','function','if','implementation','interface',           'is','nil','or','private','procedure','public','raise',           'repeat','string','to','try','type','unit','uses','var',           'while','external','stdcall','do','until','array','of',           'in','shr','shl','cos','div'); var   FoundAt : LongInt;   StartPos, ToEnd, i : integer;   OldCap,T : String;   FontC, BackC, C1, C2 ,C3 ,strC, strC1 : TColor; begin   OldCap := Form.Caption;   with RichE do   begin     Font.Name := 'Courier New';     Font.Size := 10;     if WordWrap then WordWrap := false;     SelectAll;     SelAttributes.color := clBlack;     SelAttributes.Style := [];     SelStart := 0;     if InVisible then     begin       Visible := False;       Form.Caption := 'Executing Code Coloring...';     end;   end;   BackC := clWhite; FontC := clBlack;   C1 := clBlack; C2 := clBlack; C3 := clBlack;   strC := clBlue; strC1 := clSilver;   if Style = 'Twilight' then   begin     BackC := clBlack; FontC := clWhite;     C1 := clLime; C2 := clSilver; C3 := clAqua;     strC := clYellow; strC1 := clRed;   end   else   if Style = 'Default' then   begin     BackC := clWhite; FontC := clBlack;     C1 := clTeal; C2 := clMaroon; C3 := clBlue;     strC := clMaroon; strC1 := clSilver;   end   else   if Style = 'Ocean' then   begin     BackC := $00FFFF80; FontC := clBlack;     C1 := clMaroon; C2 := clBlack; C3 := clBlue;     strC := clTeal; strC1 := clBlack;   end   else   if Style = 'Classic' then   begin     BackC := clNavy; FontC := clYellow;     C1 := clLime; C2 := clSilver; C3 := clWhite;     strC := clAqua; strC1 := clSilver;   end   else   begin     with RichE do     begin       T := '{'+Style+' = Invalid Style [Default,Classic,Twilight,Ocean] ONLY! }';       Lines.Insert(0,T);       StartPos := 0;       ToEnd := Length(Text) - StartPos;       FoundAt := FindText(T, StartPos, ToEnd, [stWholeWord]);       SelStart := FoundAt;       SelLength := Length(T);       SelAttributes.Color := clRed;       SelAttributes.Style := [fsBold];       StartPos := 0;       ToEnd := Length(Text) - StartPos;       FoundAt := FindText('ONLY!', StartPos, ToEnd, [stWholeWord]);       SelStart := FoundAt;       SelLength := 4;       SelAttributes.Color := clRed;       SelAttributes.Style := [fsBold,fsUnderLine];     end;   end;   RichE.SelectAll;   RichE.color := BackC;   RichE.SelAttributes.color := FontC;   for i := 0 to 100 do   begin     with RichE do     begin       StartPos := 0;       ToEnd := Length(Text) - StartPos;       FoundAt := FindText(IntToStr(i), StartPos, ToEnd, [stWholeWord]);       while (FoundAt <> -1) do       begin         SelStart := FoundAt;         SelLength := Length(IntToStr(i));         SelAttributes.Color := C1;         SelAttributes.Style := [];         StartPos := FoundAt + Length(IntToStr(i));         FoundAt := FindText(IntToStr(i), StartPos, ToEnd, [stWholeWord]);       end;     end;   end;   for i := 0 to 20 do   begin     with RichE do     begin       StartPos := 0;       ToEnd := Length(Text) - StartPos;       FoundAt := FindText(CodeC1[i], StartPos, ToEnd, []);       while (FoundAt <> -1) do       begin         SelStart := FoundAt;         SelLength := Length(CodeC1[i]);         SelAttributes.Color := C2;         StartPos := FoundAt + Length(CodeC1[i]);         FoundAt := FindText(CodeC1[i], StartPos, ToEnd, []);       end;     end;   end;   for i := 0 to 44 do   begin     with RichE do     begin       StartPos := 0;       ToEnd := Length(Text) - StartPos;       FoundAt := FindText(CodeC2[i], StartPos, ToEnd, [stWholeWord]);       while (FoundAt <> -1) do       begin         SelStart := FoundAt;         SelLength := Length(CodeC2[i]);         SelAttributes.Color := C3;         SelAttributes.Style := [fsBold];         StartPos := FoundAt + Length(CodeC2[i]);         FoundAt := FindText(CodeC2[i], StartPos, ToEnd, [stWholeWord]);       end;     end;   end;   Startpos := 0;   with RichE do   begin     FoundAt := FindText('', StartPos, Length(Text), []);     while FoundAt <> -1 do     begin       SelStart := FoundAt;       Startpos := FoundAt+1;       FoundAt := FindText('', StartPos, Length(Text), []);       if FoundAt <> -1 then       begin         SelLength := (FoundAt - selstart)+1;         SelAttributes.Style := [];         SelAttributes.Color := strC;         StartPos := FoundAt+1;         FoundAt := FindText('', StartPos, Length(Text), []);       end;     end;   end;   Startpos := 0;   with RichE do   begin     FoundAt := FindText('{', StartPos, Length(Text), []);     while FoundAt <> -1 do     begin       SelStart := FoundAt;       Startpos := FoundAt+1;       FoundAt := FindText('}', StartPos, Length(Text), []);       if FoundAt <> -1 then       begin         SelLength := (FoundAt - selstart)+1;         SelAttributes.Style := [];         SelAttributes.Color := strC1;         StartPos := FoundAt+1;         FoundAt := FindText('{', StartPos, Length(Text), []);       end;     end;   end;     if InVisible then   begin     RichE.Visible := True;     Form.Caption := OldCap;   end;   RichE.SelStart := 0; end;