第3章ObjectPascal编程基础.ppt

第3章 Object Pascal编程基础 程序结构（项目文件，单元文件） 变量说明（var） 控制结构 项目文件－主程序 program Project1; ?uses Forms, Unit1 in Unit1.pas {Form1}; ?{$R *.res} ?begin Application.Initialize; Application.CreateForm(TForm1, Form1); 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; 单元文件 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 Form1.Close ; end; 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（属于） 关系运算符： =、 （不等于）、、、=、 = 控制语句－分支语句 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! ; //显示一条信息 Form1.Color := clYellow ; //将窗体颜色置为黄色 end else begin edit2.text := workday ; Form1.Color := clBtnFace ; //将窗体颜色置为隐含颜色 end ; en