Delphi
文章平均质量分 76
wa343659652
这个作者很懒,什么都没留下…
展开
-
InputOutput(Excel导入导出)
unit InputOutput;interfaceUses DB, Classes, Dialogs, ABSMain, ComObj, Variants, PublicFunctionUnit, Graphics;var CXlsBof: array[0..5] of Word = ($809, 8, 0, $10, 0, 0); CXlsEof: array[0..1] of Word = ($0A, 00); CXlsLabel: array[0..5] of Word = ($204,原创 2010-06-01 15:40:00 · 813 阅读 · 0 评论 -
如何随机生成验证码?(主要代码)
<br /> procedure PwdImg(img:Timage);<br /> <br /> <br />var<br />pwdimgstr : string;<br /> <br /><br />procedure Tlogin.PwdImg(img:Timage);<br />var<br /> I,j,k: Integer;<br /> vPoint: TPoint;<br /> vLeft: Integer;<br /> arrStr:array [1..36]of st原创 2010-06-01 15:46:00 · 446 阅读 · 0 评论