摘要: unit Image32;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, ToolWin, ImgList, GraphicEx, Jpeg, Buttons, Math, Trace,... 阅读全文
posted @ 2006-05-06 22:16 小洋房 阅读(2558) 评论(0) 推荐(0)
摘要: unit AdmitLevelUnit;interfaceuses Classes, SysUtils;////////////////////////////////////////////////////////////////////////////////// 权限判断// 函数SmallLevel可以判断64种权限 状态值为2^0=1,2^1=2,2^2=4,8,16....2^64... 阅读全文
posted @ 2006-05-06 22:12 小洋房 阅读(895) 评论(0) 推荐(0)
摘要: 这是一个德国人写的expert,可加快Delphi IDE的启动/反应速度,如project切换和打开project options的速度等有for D5-2006的版本,最新版是v1.6,以下是安装前和安装后delphi启动时间(单位为秒)的对比。(机器配置:RAM:1G,CPU:C2.66G): Original V1.5 Installed V1.6 InstalledD7 41 1... 阅读全文
posted @ 2006-05-06 22:04 小洋房 阅读(617) 评论(0) 推荐(0)
摘要: SQL语句导入导出大全 /******* 导出到excel EXEC master..xp_cmdshell ''bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'' /*********** 导入Excel SELECT * FROM OpenDataSource( ''Micros... 阅读全文
posted @ 2006-05-06 21:58 小洋房 阅读(177) 评论(0) 推荐(0)
摘要: floor 和 ceil 是 math unit 里的函数,使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数,缺省就可以用。floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123trunc 直接切下整数,比如 trunc(-123.55)=-123, floor(123.55)=123ceil 直接... 阅读全文
posted @ 2006-05-06 21:58 小洋房 阅读(10765) 评论(1) 推荐(0)
摘要: Delphi基本图像处理代码//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin for i :... 阅读全文
posted @ 2006-05-06 21:56 小洋房 阅读(6798) 评论(3) 推荐(2)