Chinaunix首页 | 论坛 | 博客
  • 博客访问: 8700871
  • 博文数量: 1413
  • 博客积分: 11128
  • 博客等级: 上将
  • 技术积分: 14685
  • 用 户 组: 普通用户
  • 注册时间: 2006-03-13 10:03
个人简介

follow my heart...

文章分类

全部博文(1413)

文章存档

2013年(1)

2012年(5)

2011年(45)

2010年(176)

2009年(148)

2008年(190)

2007年(293)

2006年(555)

分类:

2006-11-17 11:41:41

一,新建一个工程文件,默认的文件是unit1,代码如下:
 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  nTemp:integer;
begin
  nTemp:=add(3,4);
  //也可以这样nTemp:=unit2.add(3,4);

  edit1.Text:=inttostr(nTemp);
end;

end.

2,新建一个unit,默认名称是unit2,代码如下:

unit Unit2;

interface
  uses windows,messages, SysUtils, Variants, Classes;
  function add(a,b:integer):integer;

implementation

function add(a,b:integer):integer;
begin
  result:=a+b;
end;

end.

从这里我们可以看到,单元的引用是非常简单的.我们的unit2只是一个代码单元,没有窗体.在interface节中我们相当于声明了单元的对外可见部分,在implementation中,定义了实现部分.在unit1当中,我们引用unit2后,直接可以调用add函数了,当然,也可以在前面加上unit2.add()这样的形式.在这个单元中,我们可以把一些公用函数,类等东西放进去,实现程序的模块化.便于程序结构明晰.也便于程序维护.

阅读(921) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~