Delphi Command模式

2016年07月29日 78 阅读

这个例子还是比较好理解的，所以只给出代码.unitpattern;interfaceusesDialogs;typeTAudioPlayer=class;TCommand=classpublicprocedureexecute;virtual;abstract;end;TPlayCommand=class（TCommand）privateAudioPlayer:TAudioPlayer;publicprocedureexecute;override;pro...

初探Delphi中的插件编程

2016年07月29日 84 阅读

插件结构的编程需要一个插件容器来控制各DLL的运行情况，将划分好的每个子系统安排到一个DLL库文件中。对每个DLL程序需要为容器预留接口函数，一般接口函数包括：启动调用DLL库的函数、关闭DLL库的函数。通过接口函数，插件容器可以向DLL模块传递参数实现动态控制。具体实现细节我将在下文说明并给出响应代码。 您可能需要先了解一下DELPHI中UNIT的结构，工程的结构。本文没有深入讨论DLL编程的理论细节，只是演示了一些实用的代码，我当时学习的是刘艺老师的...

delphi 正弦曲线图

2016年07月29日 100 阅读

本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：procedureTForm1.FormPaint（Sender:TObject）;var x:Integer; y,a:Double;begin Canvas.Pen.Width:=3; Canvas.MoveTo（0,Trunc（self.ClientHeight/2））; forx:=0toself.Cli...

Delphi中判断文件是否为文本文件的函数

2016年07月29日 90 阅读

在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很简单的方法：把给定的那个文件看作是无类型的二进制文件，然后顺序地读出这个文件的每一个字节，如果文件里有一个字节的值等于0，那么这个文件就不是文本文件；反之，如果这个文件中没有一个字节的值是0的话，就可以判定这个文件是文本文件了。这是原理，下面看看在Delphi中怎样编程来实现它－－ 复制代码 代码如下:functionI...

c# 多线程编程 入门篇

2016年07月29日 103 阅读

开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:procedure TForm1.Button1Click（Sender: TObject）;var i: Integer;begin for i := 0 to 500000 do beginCanvas.TextOut（10, 10, IntToStr（i））; end;end;上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖动窗体试试....

DELPHI7.0 获取硬盘、CPU、网卡序列号的代码

2016年07月29日 88 阅读

复制代码 代码如下://引用及TYPE变量申明 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30; {重要引用} type PASTAT = ^TASTAT; TASTAT = record adapter : TAdapterStatus; name_buf : TNameBuffer; end; T...

Delphi修改操作注册表权限的代码

2016年07月29日 188 阅读

需要uses jclwin32, AccCtrl; 此文件需要安装JCL 复制代码 代码如下: function AllowRegKeyForEveryone（Key: HKEY; Path: string）: Boolean; var WidePath: PWideChar; Len: Integer; begin case Key of HKEY_LOCAL_MACHINE: Path := "MACHINE" + Path; HKEY_CURRENT...

Delphi书籍15本网盘下载地址整理

2016年07月29日 118 阅读

http://115.com/file/bh07akff#Delphi应用开发完全手册.rarhttp://115.com/file/e6rn2ett#Delphi信息系统开发实例精选.rarhttp://115.com/file/aqagbvdm#Delphi数据库系统开发完全手册.rarhttp://115.com/file/clohvfea#DELPHI数据库系统开发案例精选.rarhttp://115.com/file/clohv7gn#Delph...

wordpress主题支持自定义菜单及修改css样式实现方法

2016年07月29日 71 阅读

自己在制作wordpress主题的时候遇到这个问题，并且遇到了css样式错误，其实很简单，操作如下： 在主题中functions.php中加入： register_nav_menus（ array（ "menu" => __（ "menu", "" ）, ） ）; 在主题导航栏贴上导航代码： <？php wp_nav_menu（ "id=navbar" ）; ？> 但是出现了css样式错误： 原来这个函数输出的是下面的格式： 复制代码 代...

delphi xe 可用的MD5算法

2016年07月29日 78 阅读

复制代码 代码如下:unit MD5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeMD5Count = array [0 .. 1] of DWORD;MD5State = array [0 .. 3] of DWORD;MD5Block = array [0 .. 15] of DW...

Delphi隐藏TPageControl的标签实例介绍

2016年07月29日 102 阅读

下面是个简单的例子： ..... 复制代码 代码如下: begin //先屏蔽掉所有标签 for i := 0 to PageControl.PageCount - 1 do PageControl.Pages[i].TabVisible := False;//隐藏 //再开启首先要显示的tab页，Tab_Page1:TTabSheet; PageControl.ActivePage := Tab_Page1; //这就是要控制跳转的页面 end; ...

delphi中exit,abort,break,continue的区别介绍

2016年07月29日 237 阅读

delphi中表示跳出的有break，continue, exit，abort, halt, runerror。 1、break 强制退出循环（只能放在循环中），用于从For语句，while语句或repeat语句中强制退出。 2、continue 用于从For语句，while语句或repeat语句强行结束本次称称循环，并开始下一次循环。 3、exit 用于从当前代码块中退出。若该代码为主程序，则终止该程序，若是函数或过程，则立即该过程或函数。 4、abor...

delphi设置开机自动启动函数具体实现

2016年07月29日 93 阅读

有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考 复制代码 代码如下: procedure TMainForm.SetAutoRun（ok: boolean）; var Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_...

delphi简单判断程序30秒没有键盘和鼠标动作示例

2016年07月29日 85 阅读

以下为原代码： （这里给timer设置了1000ms）的参数，表示30秒的间隔！！ 复制代码 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class（TForm） Memo1: TMemo; Butto...

delphi程序全屏显示无标题栏覆盖整个屏幕（适合屏保）

2016年07月29日 86 阅读

delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 复制代码 代码如下: procedure TMainFrm.FormCreate（Sender: TObject）; begin with MainFrm do begin { Position form } Top := 0 ; Left := 0 ; { Go full screen} BorderStyle := bsNone ; WindowState := ...

delphi发送消息控制滚动条使用示例

2016年07月29日 99 阅读

1、Perform 函数 复制代码 代码如下: DBGrid1.Perform（WM_VSCROLL,SB_PAGEDOWN,0）; //控制滚动条，向后翻页 DBGrid1.Perform（WM_VSCROLL,SB_PAGEUP,0）; //控制滚动条，向前翻页 2、SendMessage 函数 复制代码 代码如下: SendMessage（DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0）; SendMessage（D...

Delphi 生成excel中饼图的实例代码

2016年07月29日 62 阅读

复制代码 代码如下:var i,j,m,n,count1:integer; str:string; Jdate:tdatetime; channellist,potBstrtime,potEstrtime,Jchannelname:string; Rres:boolean; JSHR:double; Excelid,achart1,cell1,cell2,cell3,cell4,cellMiddle,Range1,Range2,series1:varian...

Delphi实现树型结构具体实例

2016年07月29日 74 阅读

复制代码 代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB;type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Packed Record NodeID : Integer; Pa...

delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态

2016年07月29日 71 阅读

delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态。. 出现以上错误，请检查表的时间字段是否可以为NULL，不能为NULL可能出现这个问题，或其他不能为空的字段造成的。Access数据库，文本类型字段，存储字符段超出该字段定义的最大长度报此错误一般都是数据库字段类型设置不当引起，大家可以检查下。...

截取指定符号之间的字符串（随机读取）delphi实例代码

2016年07月29日 73 阅读

复制代码 代码如下:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class（TForm） test: TMemo; Button1...