⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 progress 9.1b.xml

📁 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码
💻 XML
📖 第 1 页 / 共 3 页
字号:
<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="Progress 9.1B" Extensions="p i w v f $1$" Version="1" Revision="0" Sample="&amp;scoped-define FirstChar 65
&amp;scoped-define LastChar  90

def var i as int no-undo.
def var s as char no-undo.

function GetRandomChar returns char (input SomeValue as int):
  return chr(random({&amp;FirstChar}, {&amp;LastChar})).
end.

procedure ClearString:
  def input-output param str as char no-undo.
  str = &quot;&quot;.
end.

run ClearString(input-output s).
do i = 1 to 100:
  s = s + GetRandomChar(17).
end.
display s.

" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="nevzorov@yahoo.com" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;'(),./:;&lt;&gt;?@[\]{}"/>
			<SubRules>
				<Range Name="Strings &amp;qt;..&amp;qt;" Style="Strings &amp;qt;..&amp;qt;">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;'(),./:;&lt;&gt;?@[\]{}"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Remarks /*..*/" Style="Remarks /*..*/">
					<Attributes Foreground="clNavy" Background="clWhite"/>
					<Delimiters Value="!&quot;'(),./:;&lt;&gt;?@[\]{}"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="/*" Close="*/"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="&amp;" Style="&amp;">
					<Attributes Foreground="$00FF8000" Background="clWhite"/>
					<Delimiters Value="!&quot;'(),./:;&lt;&gt;?@[\]{}"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="&amp;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key words" Enabled="True" Style="" Words="ACCUM
ACCUMU
ACCUMUL
ACCUMULA
ACCUMULAT
ACCUMULATE
ACTIVE-WINDOW
ADD
ALIAS
ALL
ALTER
AMBIG
AMBIGU
AMBIGUO
AMBIGUOU
AMBIGUOUS
ANALYZE
AND
ANY
APPLY
AS
ASC
ASCE
ASCEN
ASCEND
ASCENDI
ASCENDIN
ASCENDING
ASSIGN
ASYNCHRONOUS
AT
ATTR
ATTR-
ATTR-S
ATTR-SP
ATTR-SPA
ATTR-SPAC
ATTR-SPACE
AUTHORIZATION
AUTO-RET
AUTO-RETU
AUTO-RETUR
AUTO-RETURN
AVAIL
AVAILA
AVAILAB
AVAILABL
AVAILABLE
BACK
BACKG
BACKGR
BACKGRO
BACKGROU
BACKGROUN
BACKGROUND
BEFORE-H
BEFORE-HI
BEFORE-HID
BEFORE-HIDE
BEGINS
BELL
BETWEEN
BIG-ENDIAN
BLANK
BREAK
BTOS
BUFFER-COMP
BUFFER-COMPA
BUFFER-COMPAR
BUFFER-COMPARE
BUFFER-COPY
BY
BY-POINTER
BY-VARIANT-POINT
BY-VARIANT-POINTE
BY-VARIANT-POINTER
CALL
CAN-DO
CAN-FIND
CASE
CASE-SEN
CASE-SENS
CASE-SENSI
CASE-SENSIT
CASE-SENSITI
CASE-SENSITIV
CASE-SENSITIVE
CENTER
CENTERE
CENTERED
CHECK
CHR
CLEAR
CLIPBOARD
COL
COLON
COLOR
COLUMN
COLUMNS
COLUMN-LAB
COLUMN-LABE
COLUMN-LABEL
COM-SELF
COMPILER
COMPONENT-SELF
CONNECTED
CONTROL
COUNT-OF
CPSTREAM
CREATE
CTOS
CURRENT
CURRENT-CHANGED
CURRENT-LANG
CURRENT-LANGU
CURRENT-LANGUA
CURRENT-LANGUAG
CURRENT-LANGUAGE
CURRENT-WINDOW
CURRENT_DATE
CURS
CURSO
CURSOR
DATABASE
DATASERVERS
DBCODEPAGE
DBCOLLATION
DBNAME
DBPARAM
DBREST
DBRESTR
DBRESTRI
DBRESTRIC
DBRESTRICT
DBRESTRICTI
DBRESTRICTIO
DBRESTRICTION
DBRESTRICTIONS
DBTASKID
DBTYPE
DBVERS
DBVERSI
DBVERSIO
DBVERSION
DDE
DEBLANK
DEBUG-LIST
DEBUGGER
DECIMALS
DECLARE
DEF
DEFI
DEFIN
DEFINE
DEFAULT
DEFAULT-NOXL
DEFAULT-NOXLA
DEFAULT-NOXLAT
DEFAULT-NOXLATE
DEFAULT-WINDOW
DELETE
DELIMITER
DESC
DESCE
DESCEN
DESCEND
DESCENDI
DESCENDIN
DESCENDING
DICT
DICTI
DICTIO
DICTION
DICTIONA
DICTIONAR
DICTIONARY
DISABLE
DISCON
DISCONN
DISCONNE
DISCONNEC
DISCONNECT
DISP
DISPL
DISPLA
DISPLAY
DISTINCT
DO
DOS
DOWN
DROP
DYNAMIC-FUNC
DYNAMIC-FUNCT
DYNAMIC-FUNCTI
DYNAMIC-FUNCTIO
DYNAMIC-FUNCTION
EACH
EDITING
ELSE
ENABLE
ENCODE
END
ENTRY
ERROR-STAT
ERROR-STATU
ERROR-STATUS
ESCAPE
ETIME
EVENT-PROCEDURE
EXCEPT
EXCLUSIVE
EXCLUSIVE-L
EXCLUSIVE-LO
EXCLUSIVE-LOC
EXCLUSIVE-LOCK
EXCLUSIVE-WEB
EXCLUSIVE-WEB-
EXCLUSIVE-WEB-U
EXCLUSIVE-WEB-US
EXCLUSIVE-WEB-USE
EXCLUSIVE-WEB-USER
EXISTS
EXPORT
FALSE
FETCH
FIELD
FIELDS
FILE-INFO
FILE-INFOR
FILE-INFORM
FILE-INFORMA
FILE-INFORMAT
FILE-INFORMATI
FILE-INFORMATIO
FILE-INFORMATION
FILL
FIND
FIND-CASE-SENSITIVE
FIND-GLOBAL
FIND-NEXT-OCCURRENCE
FIND-PREV-OCCURRENCE
FIND-SELECT
FIND-WRAP-AROUND
FIRST
FIRST-OF
FOCUS
FONT
FOR
FORM
FORMA
FORMAT
FRAM
FRAME
FRAME-COL
FRAME-DB
FRAME-DOWN
FRAME-FIELD
FRAME-FILE
FRAME-INDE
FRAME-INDEX
FRAME-LINE
FRAME-NAME
FRAME-ROW
FRAME-VAL
FRAME-VALU
FRAME-VALUE
FROM
FROM-C
FROM-CH
FROM-CHA
FROM-CHAR
FROM-CHARS
FROM-P
FROM-PI
FROM-PIX
FROM-PIXE
FROM-PIXEL
FROM-PIXELS
FROMNOREORDER
GATEWAY
GATEWAYS
GET-BYTE
GET-CODEPAGE
GET-CODEPAGES
GET-COLL
GET-COLLA
GET-COLLAT
GET-COLLATI
GET-COLLATIO
GET-COLLATION
GET-COLLATIONS
GET-KEY-VAL
GET-KEY-VALU
GET-KEY-VALUE
GETBYTE
GLOBAL
GO-ON
GO-PEND
GO-PENDI
GO-PENDIN
GO-PENDING
GRANT
GRAPHIC-E
GRAPHIC-ED
GRAPHIC-EDG
GRAPHIC-EDGE
GROUP
HAVING
HEADER
HELP
HIDE
HOST-BYTE-ORDER
IF
IMPORT
IN
INDEX
INDICATOR
INPUT
INPUT-O
INPUT-OU
INPUT-OUT
INPUT-OUTP
INPUT-OUTPU
INPUT-OUTPUT
INSERT
INTO
IS
IS-ATTR
IS-ATTR-
IS-ATTR-S
IS-ATTR-SP
IS-ATTR-SPA
IS-ATTR-SPAC
IS-ATTR-SPACE
JOIN
KBLABEL
KEY-CODE
KEY-FUNC
KEY-FUNCT
KEY-FUNCTI
KEY-FUNCTIO
KEY-FUNCTION
KEY-LABEL
KEYCODE
KEYFUNC
KEYFUNCT
KEYFUNCTI
KEYFUNCTIO
KEYFUNCTION
KEYLABEL
KEYS
KEYWORD
LABEL
LAST
LAST-EVEN
LAST-EVENT
LAST-KEY
LAST-OF
LASTKEY
LDBNAME
LEAVE
LIBRARY
LIKE
LINE-COUNT
LINE-COUNTE
LINE-COUNTER
LISTI
LISTIN
LISTING
LITTLE-ENDIAN
LOCKED
LOOKUP
MACHINE-CLASS
MAP
MEMBER
MESSAGE
MESSAGE-LINES
MOUSE
MPE
NEW
NEXT
NEXT-PROMPT
NO
NO-ATTR
NO-ATTR-S
NO-ATTR-SP
NO-ATTR-SPA
NO-ATTR-SPAC
NO-ATTR-SPACE
NO-ERROR
NO-F
NO-FI
NO-FIL
NO-FILL
NO-HELP
NO-HIDE
NO-LABEL
NO-LABELS
NO-LOCK
NO-MAP
NO-MES
NO-MESS
NO-MESSA
NO-MESSAG
NO-MESSAGE
NO-PAUSE
NO-PREFE
NO-PREFET
NO-PREFETC
NO-PREFETCH
NO-RETURN-VAL
NO-RETURN-VALU
NO-RETURN-VALUE
NO-UNDO
NO-VAL
NO-VALI
NO-VALID
NO-VALIDA
NO-VALIDAT
NO-VALIDATE
NO-WAIT
NOT
NULL
NUM-ALI
NUM-ALIA
NUM-ALIAS
NUM-ALIASE
NUM-ALIASES
NUM-DBS
NUM-ENTRIES
OF
OFF
OLD
ON
OPEN
OPSYS
OPTION
OR
OS-APPEND
OS-COMMAND
OS-COPY
OS-CREATE-DIR
OS-DELETE
OS-DIR
OS-DRIVE
OS-DRIVES
OS-ERROR
OS-RENAME
OS2
OS400
OTHERWISE
OUTPUT
OVERLAY
PAGE
PAGE-BOT
PAGE-BOTT
PAGE-BOTTO
PAGE-BOTTOM
PAGE-NUM
PAGE-NUMB
PAGE-NUMBE
PAGE-NUMBER
PAGE-TOP
PARAM
PARAME
PARAMET
PARAMETE
PARAMETER
PAUSE
PDBNAME
PERSIST
PERSISTE
PERSISTEN
PERSISTENT
PIXELS
PREPROC
PREPROCE
PREPROCES
PREPROCESS
PRIVILEGES
PROC-HA
PROC-HAN
PROC-HAND
PROC-HANDL
PROC-HANDLE
PROC-ST
PROC-STA
PROC-STAT
PROC-STATU
PROC-
PROCESS
PROFILER
PROGRAM-NAME
PROGRESS
PROMPT
PROMPT-F
PROMPT-FO
PROMPT-FOR
PROMSGS
PROPATH
PROVERS
PROVERSI
PROVERSIO
PROVERSION
PUBLISH
PUT
PUT-BYTE
PUT-KEY-VAL
PUT-KEY-VALU
PUT-KEY-VALUE
PUTBYTE
QUERY
QUERY-TUNING
QUIT
R-INDEX
RCODE-INFO
RCODE-INFOR
RCODE-INFORM
RCODE-INFORMA
RCODE-INFORMAT
RCODE-INFORMATI
RCODE-INFORMATIO
RCODE-INFORMATION
READ-AVAILABLE
READ-EXACT-NUM
READKEY
RECID
RECORD-LEN
RECORD-LENG
RECORD-LENGT
RECORD-LENGTH
RECT
RECTA
RECTAN
RECTANG
RECTANGL
RECTANGLE
RELEASE
REPEAT
REPOSITION
RETAIN
RETRY
RETURN
RETURN-VAL
RETURN-VALU
RETURN-VALUE
REVERT
REVOKE
RUN
SAVE
SCHEMA
SCREEN
SCREEN-IO
SCREEN-LINES
SCROLL
SDBNAME
SEARCH
SEARCH-SELF
SEARCH-TARGET
SEEK
SELECT
SELF
SESSION
SET
SETUSER
SETUSERI
SETUSERID
SHARE
SHARE-
SHARE-L
SHARE-LO
SHARE-LOC
SHARE-LOCK
SHARED
SHOW-STAT
SHOW-STATS
SKIP
SOME
SOURCE-PROCEDURE
SPACE
STATUS
STREAM
STREAM-IO
STRING-XREF
SUBSCRIBE
SUPER
SYSTEM-DIALOG
STATUS
TABLE
TABLE-HANDLE
TARGET-PROCEDURE
TERM
TERMINAL
TEXT
TEXT-CURSOR
TEXT-SEG
TEXT-SEG-
TEXT-SEG-G
TEXT-SEG-GR
TEXT-SEG-GRO
TEXT-SEG-GROW
TEXT-SEG-GROWT
TEXT-SEG-GROWTH
THEN
THIS-PROCEDURE
TIME
TITLE
TO
TODAY
TOP-ONLY
TRANS
TRANSACT
TRANSACTI
TRANSACTIO
TRANSACTION
TRIGGER
TRIGGERS
TRIM
TRUE
UNDERL
UNDERLI
UNDERLIN
UNDERLINE
UNDO
UNFORM
UNFORMA
UNFORMAT
UNFORMATT
UNFORMATTE
UNFORMATTED
UNION
UNIQUE
UNIX
UNLESS-HIDDEN
UNSUBSCRIBE
UP
UPDATE
USE-INDEX
USE-REVVIDEO
USE-UNDERLINE
USER
USERID
USING
V6FRAME
VALUE
VALUES
VIEW
VIEW-AS
VMS
WAIT-FOR
WEB-CON
WEB-CONT
WEB-CONTE
WEB-CONTEX
WEB-CONTEXT
WHEN
WHERE
WHILE
WINDOW
WINDOW-DELAYED-MIN
WINDOW-DELAYED-MINI
WINDOW-DELAYED-MINIM
WINDOW-DELAYED-MINIMI
WINDOW-DELAYED-MINIMIZ
WINDOW-DELAYED-MINIMIZE
WINDOW-MAXIM
WINDOW-MAXIMI
WINDOW-MAXIMIZ
WINDOW-MAXIMIZE
WINDOW-MAXIMIZED
WINDOW-MAXIMIZED
WINDOW-MINIM
WINDOW-MINIMI
WINDOW-MINIMIZ
WINDOW-MINIMIZE
WINDOW-MINIMIZED
WINDOW-MINIMIZED
WINDOW-NORMAL
WITH
WORK-TAB
WORK-TABL
WORK-TABLE
WORKFILE
WRITE
XCODE
XREF
YES
_CBIT
_CONTROL
_LIST
_MEMORY
_MSG
_PCONTROL
_SERIAL-NUM
_TRACE
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Operators" Enabled="True" Style="" Words="ABS
ABSO
ABSOL
ABSOLU
ABSOLUT
ABSOLUTE
ACCELERATOR
ACROSS
ADD-BUFFER
ADD-CALC-COL
ADD-CALC-COLU
ADD-CALC-COLUM
ADD-CALC-COLUMN
ADD-COLUMNS-FROM
ADD-EVENTS-PROC
ADD-EVENTS-PROCE
ADD-EVENTS-PROCED
ADD-EVENTS-PROCEDU
ADD-EVENTS-PROCEDUR
ADD-EVENTS-PROCEDURE
ADD-FIELDS-FROM
ADD-FIRST
ADD-INDEX-FIELD
ADD-LAST
ADD-LIKE-COL
ADD-LIKE-COLU
ADD-LIKE-COLUM
ADD-LIKE-COLUMN
ADD-LIKE-FIELD
ADD-LIKE-INDEX
ADD-NEW-FIELD
ADD-NEW-INDEX
ADD-SUPER-PROC
ADD-SUPER-PROCE
ADD-SUPER-PROCED
ADD-SUPER-PROCEDU
ADD-SUPER-PROCEDUR
ADD-SUPER-PROCEDURE
ADM-DATA
ADVISE
ALERT-BOX
ALLOW-COLUMN-SEARCHING
ALLOW-REPLICATION
ALTERNATE-KEY
ALWAYS-ON-TOP
ANSI-ONLY
ANYWHERE
APPEND
APPEND-CHILD
APPL-ALERT
APPL-ALERT-
APPL-ALERT-B
APPL-ALERT-BO
APPL-ALERT-BOX
APPL-ALERT-BOXE
APPL-ALERT-BOXES
APPLICATION
ARRAY-M
ARRAY-ME
ARRAY-MES
ARRAY-MESS
ARRAY-MESSA
ARRAY-MESSAG
ARRAY-MESSAGE
AS-CURSOR
ASK-OVERWRITE
ASYNC-REQUEST-COUNT
ATTACH
ATTACHM
ATTACHME
ATTACHMEN
ATTACHMENT
ATTRIBUTE-NAMES
ATTRIBUTE-TYPE
AUTO-COMP
AUTO-COMPL
AUTO-COMPLE
AUTO-COMPLET
AUTO-COMPLETI
AUTO-COMPLETIO
AUTO-COMPLETION
AUTO-DELETE-XML
AUTO-END-KEY
AUTO-ENDKEY
AUTO-GO
AUTO-IND
AUTO-INDE
AUTO-INDEN
AUTO-INDENT
AUTO-RESIZE
AUTO-VAL
AUTO-VALI
AUTO-VALID
AUTO-VALIDA
AUTO-VALIDAT
AUTO-VALIDATE
AUTO-Z
AUTO-ZA
AUTO-ZAP
AUTOMATIC
AVAILABLE-FORMATS
AVE
AVER
AVERA
AVERAG
AVERAGE
AVG
BACKWARD
BACKWARDS
BASE-KEY
BATCH
BATCH-
BATCH-M
BATCH-MO
BATCH-MOD
BATCH-MODE
BGC
BGCO
BGCOL
BGCOLO
BGCOLOR
BINARY
BIND-WHERE
BLOCK-ITERATION-DISPLAY
BORDER-B
BORDER-BO
BORDER-BOT
BORDER-BOTT
BORDER-BOTTO
BORDER-BOTTOM
BORDER-BOTTOM-C
BORDER-BOTTOM-CH
BORDER-BOTTOM-CHA
BORDER-BOTTOM-CHAR
BORDER-BOTTOM-CHARS
BORDER-BOTTOM-P
BORDER-BOTTOM-PI
BORDER-BOTTOM-PIX
BORDER-BOTTOM-PIXE
BORDER-BOTTOM-PIXEL
BORDER-BOTTOM-PIXELS
BORDER-L
BORDER-LE
BORDER-LEF
BORDER-LEFT
BORDER-LEFT-C
BORDER-LEFT-CH
BORDER-LEFT-CHA
BORDER-LEFT-CHAR
BORDER-LEFT-CHARS
BORDER-LEFT-P
BORDER-LEFT-PI
BORDER-LEFT-PIX
BORDER-LEFT-PIXE
BORDER-LEFT-PIXEL
BORDER-LEFT-PIXELS
BORDER-R
BORDER-RI
BORDER-RIG
BORDER-RIGH
BORDER-RIGHT
BORDER-RIGHT-C
BORDER-RIGHT-CH
BORDER-RIGHT-CHA
BORDER-RIGHT-CHAR
BORDER-RIGHT-CHARS
BORDER-RIGHT-P
BORDER-RIGHT-PI
BORDER-RIGHT-PIX
BORDER-RIGHT-PIXE
BORDER-RIGHT-PIXEL
BORDER-RIGHT-PIXELS
BORDER-T
BORDER-TO
BORDER-TOP
BORDER-TOP-C
BORDER-TOP-CH
BORDER-TOP-CHA
BORDER-TOP-CHAR
BORDER-TOP-CHARS
BORDER-TOP-P
BORDER-TOP-PI
BORDER-TOP-PIX
BORDER-TOP-PIXE
BORDER-TOP-PIXEL
BORDER-TOP-PIXELS
BOTH
BOTTOM
BOX
BOX-SELECT
BOX-SELECTA
BOX-SELECTAB
BOX-SELECTABL
BOX-SELECTABLE
BROWSE
BROWSE-COLUMN-DATA-TYPES
BROWSE-COLUMN-FORMATS
BROWSE-COLUMN-LABELS
BROWSE-HEADER
BUFFER
BUFFER-CHARS
BUFFER-CREATE
BUFFER-DELETE
BUFFER-FIELD
BUFFER-HANDLE
BUFFER-LINES
BUFFER-N
BUFFER-NA
BUFFER-NAM
BUFFER-NAME
BUFFER-RELEAS
BUFFER-RELEASE
BUFFER-VALUE
BUTTON
BUTTONS
BYTE
BYTES-READ
BYTES-WRITTEN
CACHE
CACHE-SIZE
CAN-CREA
CAN-CREAT
CAN-CREATE
CAN-DELE
CAN-DELET
CAN-DELETE
CAN-QUERY
CAN-READ
CAN-SET
CAN-WRIT
CAN-WRITE
CANCEL-BREAK
CANCEL-BUTTON
CANCEL-REQUESTS
CANCELLED
CAPS
CAREFUL-PAINT
CDECL
CHAINED
CHAR
CHARA
CHARAC
CHARACT
CHARACTE
CHARACTER
CHARACTER_LENGTH
CHARSET
CHECKED
CHILD-NUM
CHOOSE
CLEAR-SELECT
CLEAR-SELECTI
CLEAR-SELECTIO
CLEAR-SELECTION
CLIENT-CONNECTION-ID
CLIENT-TYPE
CLONE-NODE
CLOSE
CODE
CODEPAGE
CODEPAGE-CONVERT
COL-OF
COLLATE
COLON-ALIGN
COLON-ALIGNE
COLON-ALIGNED
COLOR-TABLE
COLUMN-BGC
COLUMN-BGCO
COLUMN-BGCOL
COLUMN-BGCOLO
COLUMN-BGCOLOR
COLUMN-DCOLOR
COLUMN-FGC
COLUMN-FGCO
COLUMN-FGCOL
COLUMN-FGCOLO
COLUMN-FGCOLOR
COLUMN-FONT

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -