以下是为您整理出来关于【delphi in】合集内容，如果觉得还不错，请帮忙转发推荐。
3.2 Gmain.pas单元这是引擎控制台的主窗口,就是之前说的那个4500行代码的单元,对大神来说,这不算什么,对我看来说,光是理清里边的关系就很吃力.我知道也许从程序的架构角度去理解会好一些,但咱不懂那些,只好继续以一个菜鸟的方式按单元\按页面逐项查看,期待能获得一些营养.接口部分也有近500行代码,虽然我是初学delphi,但也知道把所有的功能和定义都放到一个单元对以后维护带来很大不变,这份代码是谁写的我不清楚,但是至少不像比较标...
IInterface表示申明了一些函数，自己本身没有实现部分，需要由继承它的类来实现函数uSayHello代码如下unit uSayHello;interfaceusesSysUtils,Windows,Messages,Classes,Graphics,Controls,Forms,Dialogs;type// IInterface表示申明了一些函数，自己本身没有实现部分，需要由继承它的类来实现函数ISpeakChinese = interface(IInterface)function SayHello: string;end;// IInterface表示申明了一些函数，自己本身没有实现部分，需要...
zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion2unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, HALCONXLib_TLB;type TForm1 = class(TForm) HWindowXCtrl1: THWindowXCtrl; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations }...
Delphi2010中DataSnap技术网摘一、为DataSnap系统服务程序添加描述这几天一直在研究Delphi 2010的DataSnap，感觉功能真是很强大，现在足有理由证明Delphi7该下岗了。DataSnap有三种服务模式，其中Service Application方式建立的Windows服务没有描述，描述部分是空的，可用如下方法添加服务描述：procedure TServerContainer.ServiceAfterInstall(Sender: TService); varreg: TRegistry; beginreg := TRegistry.Create;trywith reg ...
内容源自Delphi XE5 UPDATE 2官方帮助《Delphi Reference》，本人水平有限，欢迎各位高人修正相关错误！也欢迎各位加入到Delphi学习资料汉化中来，有兴趣者可QQ：34484690@qq.com 3 Unit References and the Uses Clause 3 单元引用和uses 子句 A uses clause lists units used by the program, library, or unit in which the clause appears. A uses clause can occur inuses 子句列出了被程序、库或单元引用的单...
本文内容严重参考了网上其他牛人的代码，并做了一些修改，使得参数更加简单，结构更清晰，所以就厚着脸皮说是原创。 uses DBGridEhImpExp;procedure TFrm_func.DbGridEhToExcel(ADgEh: TDBGridEh);var ExpClass: TDBGridEhExportclass; Ext: string; FSaveDialog: TSaveDialog;begin try if ADgEh.DataSource.DataSet.IsEmpty then begin Application.MessageBox(PChar(‘没有可导出的数据‘), PChar(‘提示‘), MB...
面向对象编程手法，是一项综合技能，单独把谁拿出来说都不合适。本次重写 TSimpleThread ,使其能在 D7 下运行。基于 TSimpleThread ,重磅推出 TSimpleUI.ExeProcInMainThread ，命名更精准，消除使用时的疑惑。详情如下：1.TSimpleThread ，本博客线程教程中，已详细介绍。2.TSimpleUI , 在 UI Thread 或称之为 MainThread 中执行 Proc 。3.TManagementBase , 管理基类，用于编写线程程序，在此类中实现了 ThreadDispMsg(AMsg:stri...
{================================================================= 功 能: 创建 桌面、发送到...、快速启动栏、开始菜单、程序菜单、右键菜单 快捷方式 参 数: FileName : 快捷方式执行文件名 Description : 快捷方式描述信息 Arguements : 快捷方式执行参数 ShowName : 快捷方式显示名称 Location : 快捷方式类别 id : 需设置状态的队列号(255 为设置) CreateOrDelete: 是创建还是删除(默认为创建 true) 返 回 值: 无 备 注: ...
Delphi按名字调用方法高级解决方案 博客分类： 编程基础DelphiJ#ASPDOS数据结构 按名字调用方法似乎一直以来都是大家比较关注的技术，在论坛上有一个经典的答复： type TProcedure = procedure(Test: string) of object; procedure ExecuteRoutine(Obj: TObject; Name, Param: string); var PMethod: TMethod; AProcedure: TProcedure; begin PMethod.Data := Pointer(Obj); PMethod.Code := Obj.MethodAddre...
procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject(‘HNetCfg.FwMgr‘); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := CreateOLEObject(‘HNetCfg.FwAuthorizedApplication‘); FwApp.Name :=‘我的测试‘; //显示名字 FwApp.ProcessImageFileName := Application.ExeName; //要通过的程序 FwApp.Enabled := true; Profile.Authoriz...