
我们要做的第一步就是把倒数第二位取出来,然后赋值给一个变量。
procedure TForm1.Button1Click(Sender: TObject)
var sex:integer
begin
sex:=strtoint(Copy(Dbedit3.text,17,1))//取身份z第17位,即倒数第二位
if sex mod 2=1 then
begin
Dbedit4.text:='男' //对2取模,余1则表示是奇数,男性
end
else Dbedit4.text:='女'
end
在这里取身份z号倒数第二位时用到一个函数,Copy(字符串名,从第几位开始,取几位)
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)