理解Delphi的类（二） - 初识类的方法

2017年02月06日 67 阅读

理解Delphi的类（二） - 初识类的方法2011-04-03万一说到"类", 就会提到:属性、方法、事件 （这是类包含的内容）;封装、继承、多态 （这是类的主要用途）.下面定义并调用了了一个过程 MyProc、一个函数 MyFun.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di...

理解Delphi的类（三） - 初识类的属性

2017年02月06日 60 阅读

理解Delphi的类（三） - 初识类的属性2011-04-03万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; procedure Button1Click（Sender: ...

理解Delphi的类（四） - 初识类的事件

2017年02月06日 63 阅读

理解Delphi的类（四） - 初识类的事件2011-04-03万一先勾画一下思路:1、建立一个类, 里面有年龄字段 FAge;2、通过 Age 属性读写 FAge;3、如果输入的年龄刚好是 100 岁, 将会激发一个事件, 这个事件我们给它命名为: OnHundredunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fo...

理解Delphi的类（五） - 认识类的继承

2017年02月06日 62 阅读

理解Delphi的类（五） - 认识类的继承2011-04-03万一先新建一个 VCL Forms Application 工程, 代码中就已经出现了两个类:一个是 TForm 类; 一个是 TForm1 类; TForm1 继承于 TForm.TForm 是 TForm1 的父类; TForm1 是 TForm 的子类.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Clas...

理解Delphi的类（六） - 认识类的封装

2017年02月06日 61 阅读

理解Delphi的类（六） - 认识类的封装2011-04-03万一//这个类中的两个字段没有封装TMyClass1 = class FName: string; FAge: Integer; end;//这个类中的两个字段封装了, 外部不能读写TMyClass2 = class private FName: string; FAge: Integer; //public end;//那怎么读写？ 用属性啊TMyClass3 = class...

理解Delphi的类（七） - 认识类的多态

2017年02月06日 60 阅读

理解Delphi的类（七） - 认识类的多态2011-04-03万一什么是多态？ 我的理解就是: 同样一个方法, 在不同的对象里会有不同的实现, 仅此 而已.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Butto...

理解Delphi的类（八） - 关于类的定义

2017年02月06日 57 阅读

理解Delphi的类（八） - 关于类的定义2011-04-03万一//标准语法 TMyClass1 = class（TObject） end;//如果是继承自 TObject 可以省略 TMyClass2 = class end;//可以实现多个接口; 实现接口时经常用到 TInterfacedObject 类, 它实现了接口的默 认方法 TMyClass3 = class（TInterfacedObject, Interface1, Interface...

理解Delphi的类（九） - 关于类的向前声明

2017年02月06日 62 阅读

理解Delphi的类（九） - 关于类的向前声明2011-04-03万一//例1: 这是正确的TClassA = class Field1: string; Field2: Integer; end; TClassB = class Field1: string; Field2: Integer; Field3: TClassA; {字段 Field3 的类型是刚刚新定义的 TClassA 类型} end;//例2: 这是错误的, 这里有个顺序问题...

理解Delphi的类（十） - 深入方法

2017年02月06日 73 阅读

理解Delphi的类（十） - 深入方法2011-04-03万一类中包含字段、方法和属性（属性包含事件）; 字段是靠方法组织与操作的; 属性也只 是方便和规范了字段与方法的使用.因此我觉得: 方法是最重要的.方法无处不在, 它不仅仅存在与类中. 先从非类中的方法谈起吧, 因为类中的方法也 拥有全部这些特性.离开类的怀抱, 我们更喜欢把方法叫做过程或函数.//要点1: 过程用 procedure 定义, 函数用 function 定义; 过程没有返回值, 函...

理解Delphi的类（十一） - 深入类中的方法

2017年02月06日 62 阅读

理解Delphi的类（十一） - 深入类中的方法2011-04-03万一[1] - 虚方法与动态方法方法来到类中, 以前的特点基本都在;因为类一般是存在于一个继承链中, 所以就有了一些新的概念, 譬如: 继承、覆盖;也 有了很多新名称, 譬如: 静态方法、虚方法、动态方法、抽象方法、类方法、消息方法. 先从虚方法与动态方法开始吧//下面的类中就定义了两个虚方法（virtual）、两个动态方法（dynamic） TMyClass = class proced...

理解Delphi的类（十二） - 深入属性

2017年02月06日 69 阅读

理解Delphi的类（十二） - 深入属性2011-04-03万一关于属性的话题还有很多, 譬如: 数组属性、默认属性、class 属性等等.先总结一下前面提到过的属性吧.TMyClass = class（TObject） private FName: string; procedure SetName（const Value: string）; published property Name: string read FName write Set...

使Delphi程序记忆参数的设置

2017年02月06日 60 阅读

使Delphi程序记忆参数的设置2011-04-23我们平时用的很多软件都具有一些记忆功能，如foxmail和TheBat等等。这些软件能在启动时自动的保持上一次关闭软件时的一些状态，如窗口的初始位置，用户在软件中设置的一些特性（如窗口风格，横相排列还是竖相排列等等），如果能让我们的程序也具有这样的一些功能可以使我们程序看起来更专业性一些:） 这里我就来讲一下怎样使应用程序能记住上一次关闭时的窗口位置，并在下一次启动时和上一次的位置一样。既然要保留信息，就...

DELPHI中利用TreeView控件建立目录树

2017年02月06日 71 阅读

DELPHI中利用TreeView控件建立目录树2011-04-23关于TreeView的使用，还可以参看：联合使用TreeView 组件TreeView是一个显示树型结构的控件，通过它能够方便地管理和显示具有层次结构的信息，是Windows应用程序的基本控件之一。DELPHI虽然具有比较强大的文件管理功能，提供了多个用于文件管理的标准控件，如DriveComboBox、DirectoryListBox、FileListBox等，通过设置它们的属性，使其建...

Dephi中获取webbrowser选取区域的html代码示例

2017年02月06日 65 阅读

Dephi中获取webbrowser选取区域的html代码示例2011-04-23 csdn博客 贾涛这个问题来自论坛提问，示例代码如下，主要是要了解Document对象//------这个论坛居然不支持delphi代码样式unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls,...

delphi应用GetClass与RegisterClass的例子

2017年02月06日 62 阅读

delphi应用GetClass与RegisterClass的例子2011-04-23Icebird利用GetClass与RegisterClass可以实现根据字符串来实例化具体的子类，这对于某些需 要动态配置程序的场合是很有用的。其他的应用如子窗体切换，算法替换等都能得到应用。unit Example1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont...

Delphi实现自动发贴和识别验证码

2017年02月06日 65 阅读

Delphi实现自动发贴和识别验证码2011-04-23 51cto博客 王泽宾这是去年编写的一个delphi小程序，当时有个宁波的朋友让我帮他写个软件，要求如下： 能够在xxxx网站上的各个交易区，实现自动发帖。xxxx是一个游戏点卡交易站点，他们按照省份进行划分交易区域，信息发布者每次只能在 一个省份发布信息。当然可能他们也是出于某种目的，比如防止信息泛滥。发布者发布信息 的页面都有一个图形验证码，只有填写正确的验证码才能完成整个流程。当时他是一直用着...

Delphi写Sql2000扩展存储过程的例子

2017年02月06日 61 阅读

Delphi写Sql2000扩展存储过程的例子2011-04-23 csdn 贾涛library project1;uses Windows, SysUtils, MSODSApi; ...{$R *.res}Function GetParamStr（pSrvProc: SRV_PROC; Index : integer; Var Param : String ） : integer;var PType : Byte; cbMaxLen , ParaLe...

Delphi格式化输出函数（1）: Format

2017年02月06日 65 阅读

Delphi格式化输出函数（1）: Format2011-04-23万一vars: string;begin//指令类型 types := Format（"最大整数是: %d; 最小整数是: %d",[MaxInt,Low（Integer）]）;//返回: 最大整数是: 2147483647; 最小整数是: -2147483648{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个 变体数组 }s := Forma...

Delphi格式化输出函数（2）: FormatDateTime

2017年02月06日 71 阅读

Delphi格式化输出函数（2）: FormatDateTime2011-04-23万一vars: string;begin//FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间s := FormatDateTime（"c", Now）; {返回: 2007-12-18 23:56:05}{指令 c 表示用短格式显示日期与时间}s := FormatDateTime（"d", Now）; {返回: ...

Delphi格式化输出函数（3）: FormatFloat

2017年02月06日 68 阅读

Delphi格式化输出函数（3）: FormatFloat2011-04-23万一vars: string;begin//FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extendeds := FormatFloat（"###.###",12.3456）;//返回: 12.346s := FormatFloat（"000.000",12.3456）;//返回: 012.346s := FormatFloat（"#.###"...