(XD::DCL:mChkIn)多个控件检查输入格式

Free-Lancer

1. ;;多个 EditBox 检查数字格式
   
2. (defun XD::DCL:mChkIn (keylst msg)
   
3.   (if (listp keylst)
   
4.     (if        (and (listp msg) (= (length keylst) (length msg)))
   
5.       (mapcar '(lambda (x y)
   
6.                  (action_tile
   
7.                    x
   
8.                    (strcat "(XD::dcl:checkin $value \"" y "\"" x "\")")
   
9.                  )
   
10.                )
    
11.               keylst
    
12.               msg
    
13.       )
    
14.       (mapcar '(lambda (x)
    
15.                  (action_tile
    
16.                    x
    
17.                    (strcat "(XD::dcl:checkin $value \"" msg "\"" x "\")")
    
18.                  )
    
19.                )
    
20.               keylst
    
21.       )
    
22.     )
    
23.     (action_tile
    
24.       keylst
    
25.       (strcat "(XD::dcl:checkin $value \"" msg "\"" keylst "\")")
    
26.     )
    
27.   )
    
28. )

;;多个 EditBox 检查数字格式<br /> (defun XD::DCL:mChkIn (keylst msg)<br />   (if (listp keylst)<br />     (if        (and (listp msg) (= (length keylst) (length msg)))<br />       (mapcar '(lambda (x y)<br />                  (action_tile<br />                    x<br />                    (strcat "(XD::dcl:checkin $value \"" y "\"" x "\")")<br />                  )<br />                )<br />               keylst<br />               msg<br />       )<br />       (mapcar '(lambda (x)<br />                  (action_tile<br />                    x<br />                    (strcat "(XD::dcl:checkin $value \"" msg "\"" x "\")")<br />                  )<br />                )<br />               keylst<br />       )<br />     )<br />     (action_tile<br />       keylst<br />       (strcat "(XD::dcl:checkin $value \"" msg "\"" keylst "\")")<br />     )<br />   )<br /> )