第3章ObjectPascal编程基础.ppt

单击此处编辑母版文本样式,第二级,第三级,单击此处编辑母版标题样式,第3章 Object Pascal编程基础,程序结构（项目文件，单元文件）,变量说明（,var,）,控制结构,2,项目文件主程序,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.,控制语句分支语句,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;,end;,条件语句嵌套例,条件语句嵌套,procedure TForm1.Button1Click(Sender:TObject);,var,grade:integer;,begin,grade:=strtoint(edit1.Text);/,将输入的分数赋值给变量,grade,if(grade=85)and(grade=60)and(grade=0)and(grade=85)and(grade=60)and(grade=0)and(grade60),then,edit2.Text:=,不通过,/,分支,3,else,edit2.Text:=,成绩有误,;,/,其他分支,while循环,procedure TForm1.Button1Click(Sender:TObject);,var,i,n,sum:integer;,begin,sum:=0;,i:=1;,n:=strtoint(edit1.Text);/,读入正整数,n,while i 10 then /,如果已输入,10,个数，开始排序输出,begin /,输出处理开始,for i:=1 to 9 do /,排序,for j:=1 to 10-i do,if(array1jarray1j+1)then,begin,temp:=array1j;,array1j:=array1j+1;,array1j+1:=temp;,end;,数组,for i:=1 to 10 do /,输出,edit2.Text:=edit2.Text+inttostr(array1i)+,;,count:=1;,end;/,输出处理结束,label2.Caption:=inttostr(count);/,编辑框下显示要输入第几个数,end;,end.,记录,type,TEmployee=record,/,定义一个职工记录类型,eno:string5;/,职工号,ename:String10;/,职工名,age:integer;/,年龄,sal:Real;/,工资,married Boolean;/,婚否,end;,var,emp1,emp2:,TEmployee,;,emp1.age:=23;,edit1.text:=emp1.ename;,文件,文件定义记录类型,implementation,$R*.dfm,type,TEmpRec=record /,定义一个职工记录类型,ename:String10;/,定长字符串,age:integer;,sal:real ;,end;,文件打开文件,var /,定义单元内的全局变量,emprec:TEmprec;/,定义一个记录型变量,EmpFile:,file of TEmpRec,;/,定义文件变量,last:longint;/,定义一个长整型变量，,procedure TForm1.Button3Click(Sender:TObject);,begin /,写功能区中的打开文件,try,AssignFile,(EmpFile,d:emp.$);/,将一个文件名指定给文件型变量。/此后该变量即代表一个文件,reset,(EmpFile);/,打开已有文件（若文件不存在将发生例外转移,文件打开文件,last:=,filesize,(EmpFIle);/,取文件大小,seek,(EmpFile,last);/,将指针移到文件尾,except,rewrite,(EmpFile);/,创建并打开新文件,end;,end;,文件写,procedure TForm1.Button1Click(Sender:TObject);,Begin /,写文件,emprec.ename:=edit1.Text;,emprec.age:=strtoint(edit2.Text);,emprec.sal:=strtofloat(edit3.Text);,write,(EmpFile,emprec);/,将职工记录写入文件,edit1.Clear;/,清除编辑框（调用,edit,的,clear,方法）,edit2.Clear;,edit3.Clear;,end;,关闭文件,procedure TForm1.Button5Click(Sender:TObject);/,写功能区中的关闭文件,begin,closefile,(EmpFile);/,关闭文件,end;,读文件,procedure TForm1.Button2Click(Sender:TObject);,begin,if not eof(EmpFile)then/,函数,eof,判断是否已到文件尾,begin,read,(EmpFile,emprec);/,读一个记录,edit4.text:=emprec.ename;,edit5.text:=inttostr(emprec.age);,edit6.text:=floattostr(emprec.sal);,end,else,showmessage(,文件读完);,end;,程序块,程序块可分为两部分：,可选的声明区（在语句区之前）,语句区（,begin end）,声明区,变量声明（,var）,常量声明（,count）,类型声明（,type）,过程、函数及方法声明,程序块,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,后带有分号,Project1,Unit1,Unit2,Procedure2,Procedure3,Procedure1,Procedure4,Procedure5,Procedure6,程序块与变量的作用域,程序块与变量的作用域,程序块与变量的作用域,implementation,$R*.DFM,var,j:integer;/,定义单元共享的变量（计数器）,procedure TForm1.AddClick(Sender:TObject);/,加法,var,x,y:integer;/,定义局部变量,begin,x:=strtoint(edit1.text);,y:=strtoint(edit2.text);,edit3.text:=inttostr(x+y);,j:=j+1;/,对变量,j,操作,edit4.text:=inttostr(j);,end;,程序块与变量的作用域,procedure TForm1.SubClick(Sender:TObject);/“,减法”,var,x,y:integer;,begin,x:=strtoint(edit1.text);,y:=strtoint(edit2.text);,edit3.text:=inttostr(x-y);,j:=j+1;/,对变量,j,操作,edit4.text:=inttostr(j);,end;,initialization,j:=0;/,单元启动时的初始化工作（计数器置0）,end.,有关对象的两个操作,procedure TForm1.TabEnter(Sender:TObject);,begin,if Sender is TEdit then,(Sender as TEdit).clear;,end;,TObject,TEdit,