用BCB编写身份证号识别程序

时间： 2021-07-31 作者：daque

//按钮被单击的事变，创造一个输出框edit1和一个标签label1以及一个按钮button1void __fastcall tform1::button1click(tobject *sender){ansistring a,b,c,d,f;ansistring edittext = edit1->text;int e;e=strlen(edittext.c_str());if (e==18){edit1->selstart=6;edit1->sellength=4;a=edit1->seltext;edit1->selstart=10;edit1->sellength=2;b=edit1->seltext;edit1->selstart=12;edit1->sellength=2;c=edit1->seltext;edit1->selstart=16;edit1->sellength=1;d=edit1->seltext;if((strtoint(d)%2)==1){f="男";}else{f="女";}label1->caption="您是"+a+"年"+b+"月"+c+"日新人！"+f+"性！"+trim(inttostr(e))+"位证号！";return;}if (e==15){edit1->selstart=6;edit1->sellength=2;a="19"+edit1->seltext;edit1->selstart=8;edit1->sellength=2;b=edit1->seltext;edit1->selstart=10;edit1->sellength=2;c=edit1->seltext;edit1->selstart=14;edit1->sellength=1;d=edit1->seltext;if((strtoint(d)%2)==1){f="男";}else{f="女";}label1->caption="您是"+a+"年"+b+"月"+c+"日新人！"+f+"性！"+trim(inttostr(e))+"位证号！";return;}showmessage("输出的身份证号不精确！");

用BCB编写身份证号识别程序

相关推荐

推荐下载

热门阅览

最新排行