《计算机信息管理基础》第十五讲 对象 PASCAL基本结构

Delphi编程基 通过例题掌握 Delphi编 程的思路

Delphi 编程基础 通过例题掌握Delphi 编 程的思路

对象 PASCAL基本结构 Delphi是面向对象和事件驱动的,过去 那种自上而下的结构化方法已不适应在 Delphi中编程。 OP的一个程序是由一个 Program程序单 元和若干可选的子程序单元组成。 在 Delphi中 Program程序单元就是它的项 目文件。 子程序单元就是 Delphi的单元文件

对象PASCAL基本结构 • Delphi 是面向对象和事件驱动的，过去 那种自上而下的结构化方法已不适应在 Delphi 中编程。 • OP 的一个程序是由一个Program程序单 元和若干可选的子程序单元组成。 • 在Delphi 中Program程序单元就是它的项 目文件。 • 子程序单元就是Delphi 的单元文件

项目文件 Program projectI uses forms unitI in unitl pas ISR*. RES begin 在 Delphi中,程序员 几乎不接触 end Program单元

Program project1; uses forms; unit1 in unit1.pas ; {$R *.RES} begin … … end. 项目文件 在Delphi 中，程序员 几乎不 接触 Program单元

单元的含义 单。单元是复用技术的体现。单元为开发人 员提供了一种方法,来创造一套子例程 元!并将它们封装在一个代码块中,经过编 译而供他人使用。 在 Interface中公开了本单元的意图, 在 Implementation中实现在 nterfacel中 通告”的内容 由于可以将大多数应用程序的功能分成 组,所以引入支持这种概念的编程模型 是合乎情理的

单元的含义 • 单元是复用 技术的体现。单元为开发人 员提供了一种方法，来创造一套子例程, 并将它们封装在一个代码块中，经过编 译而供他人使用。 • 在Interface中公开了本单元的意图， 在Implementation中实现在Interface中 “ 通告”的内容。 • 由于可以将大多数应用程序的功能分成 组，所以引入支持这种概念的编程模型 是合乎情理的。 单 元

unit Unit l nterface{所定义的内容,可为其他项目利用 单 uSes type var 说明部分 元 procedure /function implementation uSes<引用单元列表 说明部分 内部公共说明} procedure 在 interface中声明的, function 也可定义内部过程与函数} initialization{初始化程序代码,可选} finalization{结束处理代码,可选} end.{单元结束}

unit Unit1; interface {所定义的内容，可为其他项目利用} uses type var 说明部分 procedure / function implementation uses 说明部分 {内部公共说明} procedure {在interface中声明的, function 也可定义内部过程与函数} initialization {初始化程序代码，可选} finalization {结束处理代码，可选} end. { 单元结束} 单 元 } }

interface 单 uses Windows, Messages, SysUtils, Classes 元 Graphics, Controls, Forms, Dialogs Stdctrls type

interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type 单 元

T ype Tdays-(mon, tue, wed, thu, fri, sat, sun) TForml= class(tForm) 单 Button TButton procedure Buttonl Click( Sender: TObject) 元 private i Private declarations j public i Public declarations I end Temp -class( tobject) 自定义对象 name: string[ 10] Integer function total integer end

Type Tdays=(mon,tue,wed,thu,fri,sat,sun); TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; Temp =class(tobject) 自定义对象 name: string[10]; sal: integer; function total : integer; end; 单 元

窗体对象 单 对象与记录相似之处是都包含数据域, 完但对象还包括方法,即操作对象数据的 方法。 在 Delphi中编写的所有事件处理程序都 是窗体对象的方法。 可以在 Public和 private中添加新的数据域 和方法

窗体对象 • 对象与记录相似之处是都包含数据域， 但对象还包括方法，即操作对象数据的 方法。 • 在 Delphi 中编写的所有事件处理程序都 是窗体对象的方法。 • 可以在Public和private中添加新的数据域 和方法。 单 元

var Forml TForml 单 emp: Temp key: Boolean 元

var Form1: TForm1; emp:Temp; key : Boolean ; 单 元

interface{所定义的内容,可为其他项目利用} 单 uses <引用单元列表 type var 元 Function verify(sno: integer; sname: string): boolean lmplementatlon

interface {所定义的内容，可为其他项目利用} uses type var Function verify(sno:integer;sname:string):boolean; implementation 单 元