사용자 삽입 이미지
UltraEdit 에서 사용되는 Synctax highlight 를 좀 수정한 버젼을 만들었습니다.
제약이 많아서 올바르게 보이지 않는 경우가 간혹 있으나 , 코드를 깔끔히 짜면 그리 어렵게 볼 수 있을듯 합니다.

/L14"Delphi(pascal)" Nocase Line Comment = // Block Comment On = { Block Comment On Alt = (* Block Comment Off = } Block Comment Off Alt = *) Escape Char = ?String Chars = ' File Extensions = pas dpr
/Delimiters = #$&'()*+,-./;<>@[]^{}
/Function String = "%^{procedure^}^{function^}"
/Indent Strings = "begin" "repeat" "asm" "while"
/Unindent Strings = "end" "until"
/C1"Reserved words"
array asm ansistring
begin byte boolean
case class const constructor char cardinal
destructor dispinterface do downto dword
else end except exports exit
file finalization finally for function false
goto
if implementation inherited initialization inline interface integer ioresult inc
label library longint length
nil
object of out
packed procedure program property pchar pointer
qword
raise record repeat resourcestring result
set string setlength
then threadvar to try type textfile true
unit until
uses
var
while with word widestring
/C2"Directives"
absolute abstract assembler automated
cdecl contains
default dispid dynamic
export external
far forward
implements index
message
name near nodefault
overload override
package pascal private protected public published
read readonly register reintroduce requires resident
safecall stdcall stored
virtual
write writeonly
/C3"Operators"
*
+
-
// /
< <= <>
=
> >=
@
and as
div
in is
mod
not
or
shl shr
xor
/C4"Special symbols"
#
$
&
(
(.
)
,
.
.)
..
:
:=
;
[
]
^

특히 try - except - end 의 경우 except 가 분류되지 못하는 것도 있더군요 ..
ultraedit 가 pascal 용으로는 별로 인듯 합니다.
Pascal 은 역시 RELO 2.0 이 최고인듯 합니다.
Posted by 견족자K rageworx