#8:退格键
#13:Enter键
#27:Esc键
#32:空格键
在keypress中
if not (key in ['0'..'9',#8]) then
  key:=#0;
ASCII对照表

字符 十进制数 十六进制数 注解              字符 十进制数 十六进制数 注解 
NUL   0        00       Null                @     64        40   
SOH   1        01       Start of Heading    A     65        41   
STX   2        02       Start of Text       B     66        42   
ETX   3        03       End of Text         C     67        43   
EOT   4        04       End of Transmission D     68        44   
ENQ   5        05       Enquiry             E     69        45   
ACK   6        06       Acknowledge         F     70        46   
BEL   7        07       Bell                G     71        47   
BS    8        08       Backspace           H     72        48   
SH    9        09     Horisontal Tabulation I     73        49   
LF    10       0A       Line Fees           J     74        4A   
VT    11       0B       Vertical Tabulation K     75        4B   
FF    12       0C       Form Feed           L     76        4C   
CR    13       0D       Carriage Return     M     77        4D   
SO    14       0E       Shift Out           N     78        4E   
SI    15       0F       Shift In            O     79        4F   
DEL   16       10       Data Link Escape    P     80        50   
DC1   17       11       Device Control 1    Q     81        51   
DC2   18       12       Device Control 2    R     82        52   
DC3   19       13       Device Control 3    S     83        53   
DC4   20       14       Device Control 4    T     84        54   
NAK   21       15      Negative Acknowledge U     85        55   
SYN   22       16       synchronous Idle    V     86        56   
ETB   23       17 End of Transmission Block W     87        57   
CAN   24       18       Cancel              X     88        58   
EM    25       19       End of Medium       Y     89        59   
SUB   26       1A       Subsitute           Z     90        5A   
ESC   27       1B       Escape              [     91        5B   
FS    28       1C       File Separator      \     92        5C   
GS    29       1D       Group Separator     ]     93        5D   
RS    30       1E       Unit Seprator       ^     94        5E   
US    31       1F       Space               -     95        5F   
SP    32       20                          '     96        60   
!    33       21                          a     97        61   
"     34       22                          b     98        62   
#     35       23                          c     99        63   
$     36       24                          d     100       64   
%     37       25                          e     101       65   
&     38       26                          f     102       66   
'     39       27                          g     103       67   
(     40       28                          h     104       68   
)     41       29                          i     105       69   
*     42       2A                          j     106       6A   
+     43       2B                          k     107       6B
,     44       2C                          l     108       6C   
_     45       2D                          m     109       6D   
.     46       2E                          n     110       6E   
/     47       2F                          o     111       6F   
0     48       30                          p     112       70   
1     49       31                          q     113       71   
2     50       32                          r     114       72   
3     51       33                          s     115       73   
4     52       34                          t     116       74   
5     53       35                          u     117       75   
6     54       36                          v     118       76   
7     55       37                          w     119       77   
8     56       38                          x     120       78   
9     57       39                          y     121       79   
:     58       3A                          z     122       7A   
;     59       3B                          {     123       7B   
<     60       3C                          |     124       7C   
=     61       3D                          }     125       7D   
>     62       3E                          ~     126       7E   
?     63       3F                          DEL   127       7F    Delete
----------------------------------------------
-
if (key<#48or (key>#57then
  key :
= #0;
posted on 2007-04-13 10:50  左左右右  阅读(444)  评论(0编辑  收藏  举报