摘要： 之前在网站上看到很多Delphi 的EAN-13条码实现，在实际中也很好用。就是在实际测试中发现第一位如果是1，2，3的情况下识别不了。下面是从网上找到的示例，然后修改的。供大家参考。unit UnitEAN;interfaceuses Graphics, Windows, SysUtils, Dialogs;const //EAN 左资料码 A 类编码 EAN_A: array[0..9] of string = ('0001101', '0011001', '0010011', '0111101', '0100011& 阅读全文