Delphi:高效的哈希函数
01.functionBKDRHash(buf:Pointer;count:Integer):Cardinal;assembler;02.asm03.PUSHEBX;04.XOREBX,EBX05.MOVECX,EAX06.XOREAX,EAX07.@LOOP:08.TESTEDX,EDX09.JZ@EXIT10.MOVBL,[ECX]11.IMULEAX,13112.ADDEAX,EBX13.INCECX14.DECEDX...
手把手教delphi:写你的dll文件(1)
手把手教delphi:写你的dll文件(1)一、开使你的第一个DLL专案1.File->Closeall->File->New﹝DLL﹞代码自动产生Code如下libraryProject2;//这有段废话usesSysUtils,Classes;{$R*.RES}beginend.2.加个Func进来:代码:libraryProject2;usesSysUtils,Classes;FunctionMyMax(...
浅谈Delphi如何控制Excel操作
1创建Excel文件要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-placeactivation)。创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示:functioncreateExcel...
用Delphi制作DLL的方法
十一相关资料一Dll的制作一般分为以下几步:1.在一个DLL工程里写一个过程或函数2.写一个Exports关键字,在其下写过程的名称。不用写参数和调用后缀。二参数传递1.参数类型最好与windowC++的参数类型一致。不要用DELPHI的数据类型。2.最好有返回值[即使是一个过程],来报出调用成功或失败,或...
Delphi学习:2个不错的通配符比较函数
functionMaskMatch(constaPattern,aSource:string):Boolean;varStringPtr,PatternPtr:PChar;StringRes,PatternRes:PChar;beginResult:=False;StringPtr:=PChar(UpperCase(aSource));PatternPtr:=PChar(UpperCase(aPattern));...
用Delphi轻松控制Excel 2K自动生成报表
Delphi控制Excel的方法1创建Excel文件要在Delphi中控制Excel,就必须用到OLE自动化(www.e993.com)2024年11月15日。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-placeactivation)。创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExcel所示...
用Delphi 6编程实现自动标注汉语拼音
现在简单了,打开Delphi6,添加两个TEdit控件、三个TBitBtn控件、一个TOpenDialog控件以及若干Label控件以示说明,窗体设计如图1所示。接着输入下面的源代码,编译通过就可以使用了。主要的地方我已经加了回顶部程序代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,...
用Delphi编程控制IE浏览器的窗口
用Delphi编程控制IE浏览器的窗口文/游新娥程序说明本程序用于打开IE、链接到指定的网页、获取IE地址栏中的URL地址信息及该窗口名称、激活最近打开的窗口以及关闭最近打开的窗口。程序的界面如图1:设计思想使用Delphi编程控制IE的方法有多种,在本程序中使用DDE来控制IE,应注意须先确保IE已经运行,因为此时IE要...
Delphi基础:回调函数及其使用
functionDyHdFunExample(HdFun:THDFunction;I:integer):boolean;注:在调用函数中通过对函数指针的处理可以直接调用回调函数(即调用函数中的那个是回调函数类型的参数,直接操作它),使回调函数履行一定的操作。即在调用函数中实现回调函数的功能。调用:
教你在DELPHI中如何调用系统对话框
functiondisplaystheMicrosoft??Windows??orMicrosoftWindowsNT??icon.什么意思我想不用我来翻译了吧,这些东西自己去看最好。二、调用关机对话框我们只要把begin部分代码改为beginshellapp:=CreateOleObject('Shell.Application');shellapp.ShutDownWindows;...