身份证15升18,请详看附件中delphi源代码。