GhostWhisper - 博客园

2014年7月23日

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

posted @ 2014-07-23 09:20 GhostWhisper 阅读(2587) 评论(0) 推荐(0)

2013年12月30日

Delphi 实现EAN-13条码

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

posted @ 2013-12-30 11:52 GhostWhisper 阅读(891) 评论(0) 推荐(0)