复习要点 结构化程序设计的基本原则,程序中采用的三种控制结构,顺序、分支和循环 关于对象的叙述。对象的属性,对象的方法。 与数学表达式对应的 Object Pascal 表达式:如
cos 2 (a + b) + 100 9x
Delphi 应用程序中项目文件、备份文件等各类的扩展名 各个组件的属性要掌握,重点如:按钮,Edit,ListBox,Timer,DBGrid,MaksEdit, Canvas 报表部分主要是了解概念 多看看考试指导,熟悉题型
常用组件使用和循环操作
1、
本程序根据用户选择的运算符对输入的二个操作数进行运算, 并显示运算结果。 设计界 面和运行界面如图所示。其中,运算符是一个含有 4 个单选按纽的 RadioGroup1 对象。
下面是单击“运算”按钮的事件处理程序,请根据功能要求完成程序填空。 --------------------------------------------------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);//运算 var x1,x2,y :Integer; begin x1 := StrToInt( Edit1. ① ); x2 := StrToInt( Edit2. ② ); Case ③ .ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; := IntToStr( ⑤ ); Edit3. ④
1
end; ① text ③ RadioGroup1 ⑤ y ② text ④ text
2、
本程序设计界面和运行界面如下图所示:
程序的功能是:用户在 edit1 中输入一个正整数 n,然后按“计算”按钮,程序计算 1~ n 中奇数之和,并在 edit2 中显示计算结果。 请完成程序填空: procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮 var i , n, sum : integer ; begin sum := 0 ; i := 1 ; n := StrToInt(edit1. ① ); //读入正整数 n while i <= n ② //循环语句 begin if odd( i ) then sum := ③ ; i := i +1 ; end; edit2.Text :=IntToStr( ④ ); //将结果在编辑框中显示 end; 在程序中,odd 为系统函数,其功能为: ⑤ 。 ① Text ② do ③ sum + i ④ sum ⑤ 判断奇偶性的函数(若输入值为奇数,函数值为真,否则为假) 。
多窗体;打开、 多窗体;打开、保存文件对话框用法
3、
本程序由主窗体 form1 和子窗体 form2 组成,
设计界面如下图所示:
2
主窗体上建立的对象有 Panel1、Animate1、Button1(加载 AVI 文件) 、Button2(退出) 、 Button3(播放) 、Button4(停止)和 OpenDialog1。 子窗体上建立的对象有 Label1、BitBtm1(Yes) 、BitBtm2(No) 。 单击“加载 AVI 文件”按钮,会弹出打开文件对话框。用户指定一个.avi 的文件后,动 画文件加载到 Animate1 显示区中。单击“播放”按钮可播放动画,单击“停止”按钮可停 止播放。 单击“退出”按钮,会弹出确认对话框(Form2) 。如果用户按“Yes”键,
程序结束; 如果按“No”键,返回主窗体。 下面是 Unit1 的代码部分,请在下划线处完成程序填空。 --------------
------------------------------------------------------------------------------------------------------implementation {$R *.dfm} uses ① ; procedure TForm1.Button1Click(Sender: TObject); //加载 AVI 文件 begin if ② then ; animate1.FileName := ③ end; procedure TForm1.Button2Click(Sender: TObject); //退出 begin if ④ = mrYes then close ; end; procedure TForm1.Button3Click(Sender: TObject); //播放 begin animate1.Play(1,animate1.FrameCount,0) ; end; procedure TForm1.Button4Click(Sender: TObject); //停止 begin animate1. ⑤ ; end; end. --------------------------------------------------------------------------------------------------------------------1、① unit2 ② opendialog1.Execute
3
③ opendialog1.FileName ⑤ stop
④ form2.ShowModal
4、
本程序由主窗体 form1 和子窗体 form2 组成,界面如下图所示:
主窗体上建立的对象有 Memo1、Button1~3、OpenDialog1