手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>delphi>列表

让UltraEdit也支持Delphi语法高亮

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

平时经常用UltraEdit编写修改代码,但UltraEdit本身不支持Delphi的语法高亮,用起来很不爽,于是编写以下脚本使其支持Delphi,请将其添加到UltraEdit安装路径下的 WORDFILE.TXT 文件的结尾即可。


/L8"Dephi" Line Comment = // Block Comment On = { Block Comment Off = } Block Comment On Alt = (* Block Comment Off Alt = *) Escape Char = \ String Chars = '''' Nocase File Extensions = PAS DPR DPK DFM COD INC
/Delimiters = ~!@%^&*()- =|\/{}[]:;"''''<> , .?
/Function String = "%[a-zA-Z_]* ^([a-zA-Z_] ^)(*)[~;]"
/Function String 1 = "%[a-zA-Z_]*.^([a-zA-Z_] ^)(*)[~;]"
/Indent Strings = "begin"
/Unindent Strings = "end"
/C1"Keywords"

absolute abstract and array as asm assembler automated
begin break
case cdecl class const constructor contains continue
default delete destructor dispid dispinterface div do downto dynamic
else end except explicit export exports external
far file finalization finally for forward function
goto
if implementation implements in inherited initialization inline interface is
label library
message mod
near nil nodefault not
object of or out overload override
package packed pascal private procedure program property protected public published
raise read readonly record register reintroduce repeat requires resourcestring
safecall set shl shr stdcall stored string
then threadvar to try type
unit until uses
var virtual
while with write writeonly
xor
/C4"Operators"

-
*
=
// /
\
:
%
&
>
<
^
!
|
;
,
.
''''
"
(
)
$
[
]
@
// #
// $
~

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!