Delphi 中的Edit输入框如何限定只能输入七位数,,第一位为1到4的数字,第二位到第七位为日期格式取后六位,如:

Delphi   中的Edit输入框如何限定只能输入七位数,,第一位为1到4的数字,第二位到第七位为日期格式取后六位,如:20060123取:060123,任何一位都可以换成"+,-,*"  
   
  如果用正则表达式,应该怎么用?  
   
  当输入格式不对时就提示,如,第一位应输入1到4的数,却按了字母A,则弹出提示

这个可在OnChange事件里面自己判断

还要用到正则表达式吗?

不需要。  
  多找几个字符串函数就行了。  
  你用什么？delphi？

if   length(edit1.text)<=6   then  
      begin  
          if   not   (copy(Edit1.text,0,1)   in   ['1'..'4'])   then  
                begin  
                      application.messageboxs(pchar('fuck   you'),pchar('123'),0);  
                      exit;  
                end;  
              edit1.text:=   edit1.text+copy(formatdatetime(yyyyMMdd,now()),3,length(formatdatetime(yyyyMMdd,now())));  
      end;

DELPHI

给分   给分

我也用到了，是在OnChange事件里判断的

给的这个例子只判断了第一位，后面判断日期的你可以自己参考着写，就是用一些字符串的操作函数。

XX