UltraEdit也支持Delphi语法高亮

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