RSS订阅 | 匿名投稿
标签

delphi 15位身份证号码转18位身份证号码

//15位身份证转18位身份证//仅供参考FunctionGetIDCard(AiIDCard:String):String;ConstIDCardGene:Array[1..18]OfInteger=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);IDCardParity:Array[0..10]OfChar=('1','0','X','…
类别:字符串 作者:admin 日期:2013-10-10 20.39.47 点击:398 评论:0