如何在程序中使用自己的库单元
2003-07-16 08:14
489 查看
用过VB的人都知道,可以在工程中增加类模快来存放共用方法,而在delphi中如何也能与VB一样存放自己的类呢?通过下面的讲解,我想你一定会有所收获的。
一,在工程中增加一个库单元
单击菜单的顺序为 File -> New -> Unit 这样就为你的工程增加了一个库单元。新增加的库单元内容如:
unit global;//库单元的名字
interface
file://<---这里加入选择性库单元列表
implementation
end.
二,在库单元中增加自己的类
在Object Pascal中,用关键字Class来声明类。使用如下语法:
Type
CTestclass = class file://定义一个类,命名规律自己看一看delphi相关的命名规律
end;
当然,这段代码,没有什么实际用途,只是仅仅声明了一个空类,而类在没有任何的数据和操作,在下面我们可以向类中添加数据和方法。
Type
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
类的函数成员和过程成员成为类的方法。他们的说明和定义方法与普通的函数和过程相似,唯一的区别是要在函数名和过程名前面加类名和句点。
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
这样一个简单的类就编写完成了,你可以按下面所讲的步骤进行调用。
将上面的代码整理一下,这个库单元的完整代码如下:
unit global;//库单元的名字
interface file://接口部分
uses
windows;//需要引用的其它库单元列表
Type file://接口类型定义
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
implementation
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
end.
三,调用自定义库单元文件(或其它库单元)中的方法
在你需要引用的文件uses处,添加你自己的库单元的名称
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global; file://注意这里的global是你自己写的库单元的名称
一旦在uses部分引用了你的库单元,就可以按如下进行调用:
Var
Tclass:CTestclass;
这样一来就可以如当前文件中的窗体类一样调用了。完整代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Tclass:CTestclass; file://你要增加的类的引用声明
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Tclass.Create;
Tclass.SetText('这是一个类的测试');
showmessage(Tclass.GetText); file://此处是对你自己写的类的一个测试
end;
end.
好了,在你的计算机中输入完上面的代码后,运行试一试吧。这里只是对库单元的引用举了一个简单例子,关于详细写法请参看相关书籍中对库单元及类编程的讲述。
一,在工程中增加一个库单元
单击菜单的顺序为 File -> New -> Unit 这样就为你的工程增加了一个库单元。新增加的库单元内容如:
unit global;//库单元的名字
interface
file://<---这里加入选择性库单元列表
implementation
end.
二,在库单元中增加自己的类
在Object Pascal中,用关键字Class来声明类。使用如下语法:
Type
CTestclass = class file://定义一个类,命名规律自己看一看delphi相关的命名规律
end;
当然,这段代码,没有什么实际用途,只是仅仅声明了一个空类,而类在没有任何的数据和操作,在下面我们可以向类中添加数据和方法。
Type
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
类的函数成员和过程成员成为类的方法。他们的说明和定义方法与普通的函数和过程相似,唯一的区别是要在函数名和过程名前面加类名和句点。
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
这样一个简单的类就编写完成了,你可以按下面所讲的步骤进行调用。
将上面的代码整理一下,这个库单元的完整代码如下:
unit global;//库单元的名字
interface file://接口部分
uses
windows;//需要引用的其它库单元列表
Type file://接口类型定义
CTestclass = class
Tmessage:String;
Procedure SetText(text:String);
Function GetText:String;
end;
implementation
Procdeure CTestclass.SetText(text:String);
Begin
Tmessage:=text;
end;
Function CTestclass.GetText:String;
Begin
GetText:=Tmessage;
end;
end.
三,调用自定义库单元文件(或其它库单元)中的方法
在你需要引用的文件uses处,添加你自己的库单元的名称
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global; file://注意这里的global是你自己写的库单元的名称
一旦在uses部分引用了你的库单元,就可以按如下进行调用:
Var
Tclass:CTestclass;
这样一来就可以如当前文件中的窗体类一样调用了。完整代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, global;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Tclass:CTestclass; file://你要增加的类的引用声明
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Tclass.Create;
Tclass.SetText('这是一个类的测试');
showmessage(Tclass.GetText); file://此处是对你自己写的类的一个测试
end;
end.
好了,在你的计算机中输入完上面的代码后,运行试一试吧。这里只是对库单元的引用举了一个简单例子,关于详细写法请参看相关书籍中对库单元及类编程的讲述。
相关文章推荐
- 如何使用gem5进行指定选项配置模拟自己的程序
- 如何使用InstallShield8.0制作自己的安装程序
- Verilog程序如何优化减少逻辑单元的使用数量
- 【086】部署nodejs程序时,如何把自己用到的npm模块封装成Docker镜像,方便在离线的时候使用?
- 自己电脑上的opencv程序如何在别人的电脑上运行(使用动态库)
- 如何使用InstallShield8.0制作自己的安装程序
- 如何使用InstallShield8.0制作自己的安装程序
- 如何在自己的opengl程序中使用GLSL
- 程序中如何给自己设置硬件断点(通过程序代码设置数据断点而不使用JTAG)
- 如何使用InstallShield8.0制作自己的安装程序
- 如何使用Junit编写和组织测试程序
- 如何使用InstallShield X Express 部署.Net WinForm程序
- 如何使用 VB 编写自动反安装的程序?
- 如何使用JavaScript来写ASP程序
- 如何使用Java读取串口的程序
- [转]教您如何使用EclipseME开发J2ME程序(1)
- [转]教您如何使用EclipseME开发J2ME程序(2)
- SharpDevelop Addin(插件树)使用方法-让SharpDevelop的插件树运行在自己的程序中
- 请求帮助:如何解决烦人的VS.NET2003编译时“无法将程序集复制到文件,另一个程序正在使用,进程无法访问”的问题?
- Delph组件如何使用自己的图标