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

2024-01-18 02:01•移动端•阅读 1934

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事件里判断的

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