全部博文(788)
分类:
2008-11-27 21:17:38
这个可在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