从大富翁以前的帖子上抄来的。
软件名称:Ultraedit.
把下面的文字添加到WORDFILE.TXT。
/L8"Pascal" Nocase Line Comment = // Block Comment On = { Block Comment Off = } String Chars = ' File Extensions = pas dpr
/Delimiters = ~!@%^&*()-+=|//{}[]:;'"<> , .?
/Function String = "%[a-zA-Z_]*)[~;]"
/Indent Strings = "begin
"
/Unindent Strings = "End"
/C1"Keywords"
and
array
as
asm
at
automated
begin
case
class
const
constructor
destructor
directives
dispinterface
div
do
downto
else
end
except
exports
file
finalization
finally
for
function
goto
if
implementation
in
inherited
initialization
inline
interface
is
label
library
mod
nil
not
object
of
on
or
out
packed
private
procedure
program
property
protected
public
published
raise
record
repeat
resourcestring
set
shl
shr
string
then
threadvar
to
try
type
unit
until
uses
var
while
with
xor
/C4"Operators"
-
"
#
$
*
/
:
:=
?
@
[
]
^
+
<
<=
<>
=
>
>=
