Delphi实现新老身份证号转换，前几年这程序流行，现在基本上老身份证都已经转换完了，不过本程序中涉及的知识点还是值得学习参考的。以下是相关的源代码，先睹为快，完整代码请下载本实例： 　　CONST 　　W:ARRAY[1..18]OFInteger=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1); 　　Verify:ARRAY[0..10]OFchar=('1','0','x','9','8','7','6','5','4','3','2'); 　　var 　　i,v,s,code:integer; 　　myid:string; 　　begi