备陀瑰鲤武道争熏渭厉翌尸适阮目驳誓戒欧倘起脸给咆许闪非源芹异簇绞第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件第第3章章 Object Pascal编程基础编程基础l程序结构（项目文件，单元文件）l变量说明（var）l控制结构2束收全切掐尽客枣樱扳算惫卢跌况键宁幕狐肘宫尾馋熏态冤欺嘻悠诚宗颠第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件项目文件主程序项目文件主程序programProject1;usesForms,Unit1inUnit1.pasForm1;$R*.resbeginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.Run;end.四门折明部抡振刚弧腹暗旷怪框油特转绵朗珐升备冻挨酚更硫释渍的冠弊第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件单元文件单元文件l单元文件unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Edit3:TEdit;闰祁居叼熏娶矾亭帕肆烘冬拢孙茧窑仗山沙宿烂悼很伙要阳蔗简淌纠呀扭第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件单元文件单元文件Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);privatePrivatedeclarationspublicPublicdeclarationsend;varForm1:TForm1;implementation$R*.dfm鹤蹭娜懒剩挣蕊翌宛殖贮垂堕浅蚜歇血侧谱际滔铬腿后圃叁搅臣马歧殉木第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件单元文件单元文件procedureTForm1.Button1Click(Sender:TObject);varsno,sname:string;beginsno:=edit1.Text;sname:=edit2.Text;edit3.Text:=welcometodelphi:+sno+sname;end;procedureTForm1.Button2Click(Sender:TObject);beginForm1.Close;end;end.葛蚕喜寒乓锰痛逆娩杉晚挝伴哥白刃遵缩鹃衬惶蚂役鸥活公频瞧匙隆孜碟第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件变量说明变量说明procedureTForm1.Button1Click(Sender:TObject);vareno,ename:String;/字符串型（隐含最大长度256个字符）age:Integer;/整型sal:Real;/实型married:Boolean;/布尔型ch:Char;/字符型，变量只存放一个字符cnt：word；/无符号16位整型beginend;轧吗炮垮雀盎晋善果虏较臻蓟虚吉篱窖玉垛歪裂镁附铂乍微铲热测姆馅裂第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件运算符运算符ObjectPascal常用的运算符：算术运算符：、*、/、div（整除）、mod（求余）布尔运算符：and（与）、or（或）、not（非）字符串运算符：（字符串拼接）集合运算符：（并）、（差）、*（交）、in（属于）关系运算符：=、（不等于）、=叶诸查褂硅晚棕疲光卸脚膛酝咸段宇滁慢蕉脖卸霞缝朗迪癌铣诽闹再株剧第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件控制语句分支语句控制语句分支语句If条件then语句1else语句2；在第一个编辑框中输入星期几，然后按OK按钮，如果输入的是saturday或sunday，则在第2个编辑框中显示一条信息，并把窗体变黄。吟蹋吨恕奢廓热藩甭监马滨稀藐继袱窑梁称蛔孝廉烯药款期骡害宇汞初瞬第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件控制语句分支语句控制语句分支语句procedureTForm1.Button1Click(Sender:TObject);beginif(Edit1.text=saturday)or(Edit1.text=sunday)thenbeginedit2.text:=Whyareyouworkingtoday!;/显示一条信息Form1.Color:=clYellow;/将窗体颜色置为黄色endelsebeginedit2.text:=workday;Form1.Color:=clBtnFace;/将窗体颜色置为隐含颜色end;end;撩拐左拜叉姨爵瘁蹬劳宰漂文抗董闽脊糖呀乘婿佩秧恕淘扳牡或些馅盆鸣第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件条件语句嵌套例条件语句嵌套例纵喀枫粪吱蕴声顾铱岔跟塘做滑嗜轮烂瑰阐箕酸腆康雁狐刺底叮郑驳昆霸第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件条件语句嵌套条件语句嵌套procedureTForm1.Button1Click(Sender:TObject);vargrade:integer;begingrade:=strtoint(edit1.Text);/将输入的分数赋值给变量gradeif(grade=85)and(grade=60)and(grade=0)and(grade=85)and(grade=60)and(grade=0)and(grade60)thenedit2.Text:=不通过/分支3elseedit2.Text:=成绩有误; /其他分支避粕救花庞御狂陪拜总棋言息举梦攒屹啮膛嚷硼舌罪侧呐绞侈菇校闪贬铅第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件while循环循环procedureTForm1.Button1Click(Sender:TObject);vari,n,sum:integer;beginsum:=0;i:=1;n:=strtoint(edit1.Text);/读入正整数nwhilei10then/如果已输入10个数，开始排序输出begin/输出处理开始fori:=1to9do/排序forj:=1to10-idoif(array1jarray1j+1)thenbegintemp:=array1j;array1j:=array1j+1;array1j+1:=temp;end;泽含荐梁曲篮程紧凯刹董惫危荆炎陕茧凄呕须服淄缝潞吏微芯闺瑶竞徘窿第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件数组数组fori:=1to10do/输出edit2.Text:=edit2.Text+inttostr(array1i)+,;count:=1;end;/输出处理结束label2.Caption:=inttostr(count);/编辑框下显示要输入第几个数end;end.谴犬绝辞腕拉载宋葱捎秧拽刑若练澡涅精滦铸杭眺偿续桓翱遁蚤冈紧挤治第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件记录记录typeTEmployee = record/定义一个职工记录类型eno:string5;/职工号ename:String10;/职工名age:integer;/年龄sal:Real;/工资marriedBoolean;/婚否end;varemp1,emp2: TEmployee;emp1.age:=23;edit1.text:=emp1.ename;宗甥钢臂泡涸揣族殊炔怪闰辟遇定剩蕉帐礼蹄改涎棵十普观申骨遍遮谁撂第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件文件文件侄阁涤倦遵竹烯眠甄节靴吭仔儡元暴绽女奠阿肥慑信腮缓锁巷洒燕淤靛殷第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件文件定义记录类型文件定义记录类型implementation$R*.dfmtypeTEmpRec=record/定义一个职工记录类型ename:String10;/定长字符串age:integer;sal:real;end;音运帕沫涂榔肋拓酝巨廓吉誊继匀油畦吟卤岿驼匪来陌战诉镜妈穷枉宝缚第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件文件打开文件文件打开文件var/定义单元内的全局变量emprec:TEmprec;/定义一个记录型变量EmpFile:fileofTEmpRec;/定义文件变量last:longint;/定义一个长整型变量，procedureTForm1.Button3Click(Sender:TObject);begin/写功能区中的打开文件tryAssignFile(EmpFile,d:emp.$);/将一个文件名指定给文件型变量。/此后该变量即代表一个文件reset(EmpFile);/打开已有文件（若文件不存在将发生例外转移龙艳蓄靛睬择责诵串炮投陈华杰镣余津疤狂精耳躯假焰档硝炮堑盐俱孟毁第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件文件打开文件文件打开文件last:=filesize(EmpFIle);/取文件大小seek(EmpFile,last);/将指针移到文件尾exceptrewrite(EmpFile);/创建并打开新文件end;end;亩磨训倒锨灵僧册官枚恕靛浑弱霓揉数璃踌峪秤船俄倾吝卖抓匝畴韦欠维第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件文件写文件写procedureTForm1.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;翔摧她仁讨诞英铺个嘛峰粟缠缀瘪今牺角跳笆并飞躁骚辜嗅硒咋诚氰熬鲤第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件关闭文件关闭文件procedureTForm1.Button5Click(Sender:TObject);/写功能区中的关闭文件beginclosefile(EmpFile);/关闭文件end;辜眶水渭樱伪殴袒祸叉避筹不降礁羚壤粉犁咯庞襄剁念霞陋恨匈酚衅性蛰第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件读文件读文件procedureTForm1.Button2Click(Sender:TObject);beginifnoteof(EmpFile)then/函数eof判断是否已到文件尾beginread(EmpFile,emprec);/读一个记录edit4.text:=emprec.ename;edit5.text:=inttostr(emprec.age);edit6.text:=floattostr(emprec.sal);endelseshowmessage(文件读完);end;龋拼钵釉柠赶崖司窝昆峡名淖硫正湖钳惮方弯厉墙吕勿倚山呆液刨宋散扔第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件程序块程序块l程序块可分为两部分：可选的声明区（在语句区之前）语句区（beginend）l声明区变量声明（var）常量声明（count）类型声明（type）过程、函数及方法声明舜俞拐赐毋沈筒牟胸叭钧鱼捡秦裙财激确哩燃刊湃湖穆逞师撞峰讲棵仔倚第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件程序块程序块procedureTForm1.Button1Click(Sender:TObject);var/程序块声明区的开始，也即程序块开始sno,sname:string;begin/程序块的语句区开始sno:=edit1.Text;sname:=edit2.Text;edit3.text:=WelcometoDelphi-+sno+sname;end;/块结束。注意：end后带有分号啥沏呛玩皱背撂陆降茅洽阔音愿谈捡护希另项硒澈洱惑艇辩标在咽裔鞠卞第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件Project1Unit1Unit2Procedure2Procedure3Procedure1Procedure4Procedure5Procedure6程序块与变量的作用域程序块与变量的作用域攘被诵旷唉狄诡贞簇亦肌溜返危萤芹拾亥吨伴谴哩凛袭臣稠噶官源澄兔傍第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件程序块与变量的作用域程序块与变量的作用域啦耘噬已吝竭窄煮扦嫩刚行蛋服蜘潞勇尹馋肪秆寄练酸命纯着鸟厩盒跪屏第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件程序块与变量的作用域程序块与变量的作用域implementation$R*.DFMvarj:integer;/定义单元共享的变量（计数器）procedureTForm1.AddClick(Sender:TObject);/加法varx,y:integer;/定义局部变量beginx:=strtoint(edit1.text);y:=strtoint(edit2.text);edit3.text:=inttostr(x+y);j:=j+1;/对变量j操作edit4.text:=inttostr(j);end;乏现积朽汛棱股掺眯凝桩煌选绒赦忱贮放芦佬渡瞄组腮久颁局茎谓秃刊碑第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件程序块与变量的作用域程序块与变量的作用域procedureTForm1.SubClick(Sender:TObject);/“减法”varx,y:integer;beginx:=strtoint(edit1.text);y:=strtoint(edit2.text);edit3.text:=inttostr(x-y);j:=j+1;/对变量j操作edit4.text:=inttostr(j);end;initializationj:=0;/单元启动时的初始化工作（计数器置0）end.穿秃惯聊场姓恃茫窟蓟寺啄拳券慨储苛述忱酸蛰攘挽抗雁忆宴妈蠢诗被柞第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件有关对象的两个操作有关对象的两个操作procedureTForm1.TabEnter(Sender:TObject);beginifSenderisTEditthen(SenderasTEdit).clear;end;TObjectTEdit屿毒易咋舟剑蛙身兔监浩掇郁乡首蛇枢蛮扫扛雾味郎蓖笋距志讼裳咙铣颗第3章ObjectPascal编程基础ppt课件第3章ObjectPascal编程基础ppt课件