中央广播电视大学 课件 Object Pascal编程基础（2）_Delphi程序设计第三章

2 第3章Object Pascal编程基础 ●程序结构（项目文件，单元文件） ●变量说明(var) ●控制结构

第3章 Object Pascal编程基础 ⚫程序结构（项目文件，单元文件） ⚫变量说明（var） ⚫控制结构 2

项目文件一主程序 program Project1; uses Forms, Unitl in 'Unitl.pas'Forml); {SR *.res begin Application.Initialize; Application.CreateForm(TForm1,Form1): Application.Run; end

项目文件－主程序 program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end

单元文件 ●单元文件 unit Unitl; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls, Forms,Dialogs,StdCtrls; type TForm1 class(TForm) Label1:TLabel; Editl:TEdit; Label2:TLabel; Edit2:TEdit; Edit3:TEdit;

单元文件 ⚫单元文件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Edit3: TEdit;

单元文件 Button1:TButton; Button2:TButton; procedure Button1Click(Sender:TObject): procedure Button2Click(Sender:TObject); private Private declarations public Public declarations} end; var Forml:TForml; implementation {$R *.dfm)

单元文件 Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm}

单元文件 procedure TForm1.Button1Click(Sender:TObject): var sno,sname string begin sno :edit1.Text sname :=edit2.Text edit3.Text :='welcome to delphi:'+sno sname end; procedure TForm1.Button2Click(Sender:TObject); begin Forml.Close; end; end

单元文件 procedure TForm1.Button1Click(Sender: TObject); var sno,sname : string ; begin sno := edit1.Text ; sname := edit2.Text ; edit3.Text := 'welcome to delphi:' + sno + sname ; end; procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close ; end; end

变量说明 procedure TForm1.Button1Click(Sender:TObject): var eno,ename:String;∥字符串型（隐含最大长度256个字符） age Integer ∥整型 sal Real ∥实型 married:Boolean;/∥布尔型 ch:Char ∥字符型，变量只存放一个字符 cnt:word 1/无符号16位整型 begin 。 end;

变量说明 procedure TForm1.Button1Click(Sender: TObject); var eno , ename : String ; // 字符串型（隐含最大长度256个字符） age : Integer ; // 整型 sal : Real ; // 实型 married : Boolean ; // 布尔型 ch : Char ; // 字符型，变量只存放一个字符 cnt ：word ； //无符号16位整型 begin … … end;

运算符 Object Pascal常用的运算符： 。算术运算符： +、一、*、/、div(整除)、mod(求余) 。布尔运算符： and(与)、or(或)、not(非) 。字符串运算符：十（字符串拼接） 。集合运算符： 十（并）、一（差）、*（交）、in(属于) 。关系运算符： =、<>(不等于)、>、=

运算符 Object Pascal常用的运算符： 算术运算符： ＋、－、* 、/、div（整除）、mod（求余） 布尔运算符： and（与）、or（或）、not（非） 字符串运算符：＋（字符串拼接） 集合运算符： ＋（并）、－（差）、*（交）、in（属于） 关系运算符： =、（不等于）、>、=

控制语句一分支语句 f条件then 语句1 else 语句2； 在第一个编辑框中输入星期几，然后按OK按钮，如果 输入的是saturday或sunday,则在第2个编辑框中显示 条信息，并把窗体变黄。 ZForml Today is sunday 确定 Why are you working today!

控制语句－分支语句 If 条件 then 语句1 else 语句2 ； 在第一个编辑框中输入星期几，然后按OK按钮，如果 输入的是saturday或sunday，则在第2个编辑框中显示 一条信息，并把窗体变黄

控制语句一分支语句 procedure TForm1.Button1Click(Sender:TObject): begin if (Edit1.text ='saturday')or (Edit1.text ='sunday)then begin edit2,text:=Why are you working today!',/显示一条信息 Forml.Color:=clYellow；∥将窗体颜色置为黄色 end else begin edit2.text:='workday'; Forml.Color:=clBtnFace;/∥将窗体颜色置为隐含颜色 end end

控制语句－分支语句 procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.text = 'saturday') or (Edit1.text ='sunday') then begin edit2.text := 'Why are you working today!' ; //显示一条信息 Form1.Color := clYellow ; //将窗体颜色置为黄色 end else begin edit2.text := 'workday' ; Form1.Color := clBtnFace ; //将窗体颜色置为隐含颜色 end ; end ;

条件语句嵌套例 7Form1 回x 输入分数85 确定 分数等级优秀

条件语句嵌套例