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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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;

Answer 4

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