第3章Object Pascala编程基础 ●项目结构（项目文件，单元文件） ●语法概述 ●程序块（变量说明及作用域） ●控制结构 ●例外处理 ●记录定义与文件访问
第3章 Object Pascal编程基础 ⚫项目结构（项目文件，单元文件） ⚫语法概述 ⚫程序块（变量说明及作用域） ⚫控制结构 ⚫例外处理 ⚫记录定义与文件访问
项目文件一主程序 program Project1; uses Forms Unit1 in 'Unit1.pas'{Form1), Unit2 in 'Unit2.pas'(Form2), Unit3 in 'Unit3.pas'{Form3}; {SR*.RES} begin Application.Initialize; Application.CreateForm(TForm1,Form1); Application.CreateForm(TForm2,Form2); Application.CreateForm(TForm3,Form3); Application.Run; end
项目文件－主程序 program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); Application.Run; end
单元文件 ●单元文件 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;
单元文件 ⚫单元文件 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 Form1:TForm1;
单元文件 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; end
单元文件 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; … … end. 程 序 块
程序块 ●程序块可分为两部分： 。可选的声明区（在语句区之前） O语句区(begin..end) ●声明区 o变量声明(var) 。常量声明(count) o类型声明(type) 。过程、函数及方法声明
程序块 ⚫程序块可分为两部分： 可选的声明区（在语句区之前） 语句区（begin … end） ⚫声明区 变量声明（var） 常量声明（count） 类型声明（type） 过程、函数及方法声明
变量说明 procedure TForm1.Button1Click(Sender:TObject); var eno,ename:String;∥字符串型（隐含最大长度256个字符） age Integer ∥整型 sal Real ∥实型 married:Boolean;∥布尔型 chr char 字符型 begin ” end;
变量说明 procedure TForm1.Button1Click(Sender: TObject); var eno , ename : String ; // 字符串型（隐含最大长度256个字符） age : Integer ; // 整型 sal : Real ; // 实型 married : Boolean ; // 布尔型 chr ：char ； //字符型 begin … … end;
运算符 Object Pascal常用的运算符： 。算术运算符： +、-、*、/、diⅳ（整除）、mod(求余) 。布尔运算符： and(与)、or(或)、not(非) 。字符串运算符：+（字符串拼接) 。集合运算符： +(并)、·（差）、*（交）、in(属于) 。关系运算符： =、<>（不等于)、>、=
运算符 Object Pascal常用的运算符： 算术运算符： ＋、－、* 、/、div（整除）、mod（求余） 布尔运算符： and（与）、or（或）、not（非） 字符串运算符：＋（字符串拼接） 集合运算符： ＋（并）、－（差）、*（交）、in（属于） 关系运算符： = 、（不等于）、>、=
系统函数 ●Date- 取当前日期 ●int-返回参数的整数部分int(2.718)=2.0 ●round-取整，四舍五入round(2.718)=3 ●ShowMessage('显示信息)~信息显示 ●StrTolnt- 类型转换（字符串-整型） ●IntToStr·类型转换（整数-字符串） ·odd·判断是否为奇数 odd(3)→true ●chr·返回指定ASCII码的字符chr(65)→'A ●Random-随机数
系统函数 ⚫ Date － 取当前日期 ⚫ int －返回参数的整数部分 int(2.718) = 2.0 ⚫ round － 取整，四舍五入 round(2.718) = 3 ⚫ ShowMessage（'显示信息') － 信息显示 ⚫ StrToInt － 类型转换（字符串－整型） ⚫ IntToStr － 类型转换（整数－字符串） ⚫ odd － 判断是否为奇数 odd(3) → true ⚫ chr － 返回指定ASCII码的字符 chr(65) → 'A' ⚫ Random － 随机数
控制语句一分支语句 f条件then 语句1 else 语句2； 在第一个编辑框中输入星期几，然后按0K按钮，如果输入的是 saturdayi或sunday,则在第2个编辑框中显示一条信息，并把 窗体变黄。 Forml -▣x Today is sunday 3-2 确定 Why are you working today!
控制语句－分支语句 If 条件 then 语句1 else 语句2 ； 在第一个编辑框中输入星期几，然后按OK按钮，如果输入的是 saturday或sunday，则在第2个编辑框中显示一条信息，并把 窗体变黄。 3-2