//按钮被单击的事件，建立一个输入框EDIT1和一个标签LABEL1以及一个按钮BUTTON1
void __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(\"输入的身份证号不正确！\");
}