把这一段加到你的UltraEdit目录下的WORDFILE.TXT中,注意一下里面的/Lx,如果最后一个是/L8"xxxx",则将这里的/L6改成/L9,反正要比最后一个大一。/L6"Object Pascal" Line Comment = // Block Comment On = { (* Block Comment Off = } *) String Chars = ' File Extensions = PAS
/Delimiters = @*()-+=|/[]:;<> , .
/C1
and array as asm
begin 
case class const constructor
destructor 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 or out
packed procedure program property
raise record repeat resourcestring
set shl shr string stringresource
then threadvar to try type
unit until uses
var
while with
xor
/C2
absolute abstract assembler automated
cdecl
default dispid dynamic
export external
far forward
index
message
name near nodefault
override
pascal private protected public published
read readonly register resident safecall stdcall stored
virtual
write writeonly