摘要： CopyFile函数，文件拷贝函数，结构如下：copyfile( lpcstr lpexistingfilename, //源文件路径 lpcstr lpnewfilename, //新文件路径 bool bfailifexists //为true的话，如果新文件已存在， 则返回false; 为fa... 阅读全文

摘要： 之前在网站上看到很多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& 阅读全文