- 博客(4)
- 收藏
- 关注
原创 Delphi比较二维数组是否一样
<br />Delphi比较二维数组是否一样 <br />Delphi二维数组,Delphi比较数组,Delphi比较二维数组<br />一句话: 用 CompareMem 对比内存即可. <br />{对比静态数组} <br />procedure TForm1.Button1Click(Sender: TObject);<br />var<br />arr1: array[0..3] of AnsiChar;<br />arr2: array[0..3] of Byte;<br />begin<br /
2011-01-15 12:14:00 1098
原创 Delphi对Access文件加密
<br />下面的过程不会提示不认识数据库,只是会提示密码错误,任何读取密码的软件都不能读出正确的密码 <br />function LockupFile(FileName:string;Lock:boolean=true):integer; <br />//加密、解密数据库,针对 Access 2000 <br />var <br />f:File; <br />bf:array[0..63] of Byte; <br />i:integer; <br />const <br />fpos=64; <br
2011-01-15 10:20:00 477
原创 delphi 三层开发经验汇总
<br />delphi很早就已经可以进行三层的开发了. 但一直到现在, 网上这方面的东西太少 了. 要么太老, 甚至不完全正确. 例如: <br />如 何进行多表更新(提交), 很多回复还是说用ADOConnection的事务, (如果要同时更新SQL SERVER和Oracle数据库的表怎么 办). <br />当然也有说用SetComplete, SetAbort的. 但说的很简单, 其中的注意事项又是什么呢. 还有的推荐看李维的那本分布 式开发的书. 那本书中是写了很多值得学习和了解的东西. 但
2011-01-15 10:16:00 675
原创 Delphi中存储二维数组的方法
<br />今天突然用到Delphi中的二维数组,本来想用二维数组来存储用户的权限去控制登陆界面后的若干菜单子项的,可是发现用数据库存储二维数组还需要经过一些转化,于是想了个笨方法,在数据库中把二维数组转换为String字符串进行存储,读出后再还原成二维数组,下面是我写的两个转化函数。<br /><br />二维数组的形式如下:a[(1,1,1,1,1,1,1,1,1,1),(1,1,1,1,1,1,1,1,1,1),(1,1,1,1,1,1,1,1,1,1)......]<br />转后后的字符串格式如下
2011-01-15 10:13:00 2532
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人