Delphi

Delphi 使用Windows API(WinCrypt)计算文件MD5哈希,支持大文件

3 0

Delphi 默认没有WinCrypt相关函数的定义所以引用JwaWinCrypt{jedi-apilib}单元将 CryptCreateHash(hProv, CALG_MD5,0, 0, hHash)中的参数CALG_MD5修改为CALG_SHA1即为计算SHA1哈希 值得注意的时CALG_SHA_256,CALG_SHA_384,CALG_SHA_512着三个算法是在Windows XP SP3才开始支持的 XP SP2~ Win2000是不支持的!!program Project2; {$AP

Delphi 提升delphi 启动加载速度
Delphi

Delphi 提升delphi 启动加载速度

3 0

有些包暂时用不着(譬如: VCL for the Web 10.0), 但每次启动都载入挺浪费时间的; 取消方法:菜单 -> Project -> Default Options -> Delphi -> Packages -> 取消复选(如下图)

Delphi

Delphi 类的声明

4 0

在Delphi中,类被当作一个类型来定义。其语法格式: type 类名=class(基类) {字段声明} {方法声明} {属性声明} end; 1、Delphi面向对象程序设计,要求对象都由某个基本对象继续而来,即由Class指定父对象。Delphi约定最基本的类是TObject,编程中我们所有的对象声明都是由TObject或由TObject派生的对象继承而来。如:  Type TPerson = class(TObject) // 从基类TObjec

Delphi

Delphi TOpenDialog设置多个过滤条件

1 0

网上阅读opendialog1.filter设置多个过滤条件,这方面资料,表述不准确。本人学习体会如下:1、filter以"|" 作为1组过滤。 "|"左侧为 opendialog1显示的过滤提示字符,"|"左侧为过滤条件,如:文档文件|*.doc‘;2、过滤条件2个以上,可以通过“;”字符追加,如:文档文件|*.doc;*.docx;*.txt;*.xls’;3、如果2组过滤以上,通过 "|"字符追加,

Delphi

Delphi设置DBGrid每列自动居中

2 0

Delphi中DBGrid每列自动居中我的方案是在表单创建的时候遍历DBGrid每列的的Alignment属性并给它赋值居中属性。procedure TPatHomePage.FormCreate(Sender: TObject);var i,j:Integer;begin j:=dbgrd1.Columns.Count-1; for i:=0 to j do begin dbgrd1.Columns.Items[i].Title.Alignment:=taCenter; end;en

Delphi

Delphi 通过系统API函数实现精确记时

1 0

var C1, T1,T2:int64; R1,R2,R3:double;begin QueryPerformanceFrequency(c1); // WINDOWS API 返回计数频率(获得系统的高性能频率计数器在一毫秒内的震动次数) QueryPerformanceCounter(t1); // WINDOWS API 获取开始计数值 sleep(1111); // 需要计时的程序代码 QueryPerformanceCounte

Delphi

Delphi EXCEL数据导入数据库表

2 0

建议使用第三方TXLSReadWriteII4控件和DBGrid二控件。1、TXLSReadWriteII4读取EXCEL文件;2、DBGrid打开相应的MYSQL表;3、设置TXLSReadWriteII4的起始行列和终止行列(排除标题行、标题列)注意,做到EXCEL列的字段与DBGrid字段排列次序相同。4、通过代码读入数据5、保存DBGrid数据。由TXLSReadWriteII4向DBGrid转换代码:procedure TPreserveFrm.Button72Click(Sender: TO