顺丰、EMS单号算法delphi写的，里面部分变量可能是多余的，主要是当时定义为以后用的，可以删掉或整合。两个方法，直接调用即可，第一个参数为开头第一个快递单单号，第二个参数为要生成的个数。本程序2010-09-15前经2000+单子测试通过。以后估计算法变动几率不大，不放心可自行测试。呵呵o(∩_∩)o希望对大家有帮助（仅供学习使用，商业应用产生一切后果由使用人承担）