Delphi程序设计-作业1

ReadOnly：设置只读属性。如为True ，则用户界面上编辑框只能显示信息，不能写（不能输入）。
Text ： 该属性的值就是编辑框中的内容
15、简述Edit组件下面几个方法的功能：
Clear SetFocus SelectAll
答：Clear是清除编辑框中的内容；SetFocus是使编辑框获得焦点（光标进入编辑框中，编辑框变得可操作） ；SelectAll是选中编辑框中的全部文本。
if key in [‘0‘..‘9‘] then
exit
else
key:=chr(0);
end;
procedure TForm1.Edit1Enter(Sender: TObject); //预清
begin
if checkbox1.checked then
if (x<1)or(x>100) then
begin
showmessage(‘第1操作数越界‘);
edit1.SetFocus ;
end ;
end;
procedure TForm1.Edit2Exit(Sender: TObject); //检查edit2输入（空或越界）
16、简述Edit组件下面几个事件的引发条件：
OnChange OnClick OnEnter OnExit OnKeyPress
答：
OnChange 当编辑框中内容改变时引发该事件
OnClick ：当鼠标单击编辑框时引发该事件
OnEnter ：当光标进入编辑框时引发该事件
12、一个项目由一组文件组成。其中一些主要文件的后缀有:
.dpr .pas .dfm .dcu .~dpr .~pas .~dfm 等
请说出这些文件的中文名称及用途。
答：.dpr 项目文件，存放项目的主程序
.pas 单元文件，存放源代码，如事件处理程序等。
var
x,y,z :integer;
begin
x:= strtoint(edit1.Text);
y:= strtoint(edit2.Text);
case radiogroup1.itemindex of
0: z:= x+y ;
1: z:= x-y ;
2、简述面向对象技术中"类"与"对象"的概念。结合Delphi中使用的组件，举例说明什么是类、什么是对象。
类是对象的抽象及描述，它是具有统一属性和方法的一类对象的统一描述体，是用来定义某类对象共有属性和方法的模板。而对象是类的实例。
在Delphi环境中，组件板上的组件就是类的概念，例如按钮组件就是按钮类。而用户在窗体上创建的一个按钮就是对象的概念（按钮对象）。用户可以在窗体上用按钮类创建若干个按钮对象，它们都是按钮类的实例。
功能说明如下：
用户可以通过单选按钮选择运算类型（加减乘除），然后在两个输入框中输入操作数和被操作数，按"运算"键，答案显示在输出框。
在界面上，两个复选框的功能要求是：
当"预清"复选框被选中时，每当用户将焦点置入一个输入框，该输入框自动清空，否则输入框不清。
当"显示余数"复选框被选中后，在进行除法运算时，结果将显示商和余数(见图例)，否则只显示整除的结果。
edit1.Clear ;
end ;
procedure TForm1.Edit2Enter(Sender: TObject); //预清
begin
if checkbox1.checked then
edit2.Clear ;
end;
procedure TForm1.Edit1Exit(Sender: TObject); //检查edit1输入（空或越界）
3、在Delphi中，什么是对象的属性、方法和事件？
一个对象是由属性、方法和事件所组成。属性表示对象中的数据，方法是对象能够执行的动作，事件是能够引起对象反应的条件。
4、简述利用Delphi开发一个项目的基本步骤。
建立一个新的项目
建立窗体
在窗体上加入对象
检查和设定对象属性
var
x : integer ;
begin
if (edit1.Text=‘‘) then
begin
showmessage(‘缺第1操作数‘) ;
edit1.SetFocus ;
exit ;
end ;
x:= strtoint(edit1.Text);
11、如果想查看showmessage过程的帮助信息，请你说出两种获取帮助信息的方式。
① 通过主菜单Help的Delphi Help命令调出帮助主页面，在"索引"页输入框中输入要查找的showmessage单词，即可找出相关的帮助信息。
② 在代码中如果调用了showmessage过程，可将光标置于该单词中，然后按F1键，即可找出该过程的帮助信息。
不合法的变量名是：
123 123abc（不能是数字或数字开头）
file（变量名不能采用语言中的保留字）
a!（变量名中不能包含某些特殊符号，如"!"）
6、写出下列函数或表达式的值。
① int(2.718) = 2.0
② round(2.718) = 3
③ odd(3) ＝ true
7、将下列数学式子写成Delphi程序中的表达式
① 答案：sqr(sin(x+y)) / sin(sqr(x) + sqr(y))
② 答案 Sqrt(p*(p-a)*(p-b))
8、要想在程序中定义一个常量p，代表圆周率3.14，请写出该常量的定义语句。
④ chr(65) = ‘A‘
⑤ StrToInt(‘2005‘) = 2005
⑥ IntToStr(121) = ‘121‘
⑦ (23 mod 5) + (23 div 5) = 7
⑧ ( (x>=5) OR (x<=-5) ) AND ( x in [1..9] ) 当x=10时，表达式的值为假（或false）
局部变量只能在定义它的程序块中使用，且其生命周期也只存在于从程序块开始执行到程序块执行结束。在一个事件处理程序中的变量说明部分，能够定义一个局部变量，供该事件处理程序内部使用。
而全局变量可以在单元中的各程序块中使用（共享），且生命周期存在于整个单元代码的活动期中。
在Implementation保留字后（但不要在程序块里）定义的变量就是全局变量。
对ComboBox：该属性的值（多行）为下拉选单中的内容。
对RadioGroup：该属性决定了一组单选按钮的个数和每个按钮的名称。
18：RadioGroup和CheckBox对象都是通过用户鼠标点击来确定输入。请你说出代码中如何获取用户在这两个对象上的选择。
答：
对RadioGroup对象，是通过对ItemIndex属性确定用户在一组单选按钮中的选择：该属性为0表示选择了第1个按钮，为1表示选择了第2个按钮，依此类推。
var
x : integer ;
begin
if (edit2.Text=‘‘) then
begin
showmessage(‘缺第2操作数‘) ;
edit2.SetFocus ;
编写对象的事件处理程序
编译、试运行，并进行代码调试
保存项目文件，退出Delphi 环境
5、下列哪些条目可作为Delphi的变量名，哪些不行，并说明原因。
abc 123 abc123 123abc file a!
合法的变量名是：abc abc123
const p = 3.14 ;
9、在Delphi程序代码中，打开一个老文件、以及创建并打开一个新文件所使用的过程各是什么？
打开一个老文件：reset（文件变量名）
创建并打开一个新文件：rewrite（文件变量名）
或简答 reset 和rewrite
10、在一个单元中，全局变量和局部变量的含义是什么？说明在单元文件中如何定义这两种变量（可举例说明）。
答：Panel 或 GroupBox
14、简述Edit组件下面几个属性的用途：
Font Hint Name ReadOnly Text
答：
Font ：设置编辑框内的字体属性
Hint ：设置提示信息（当光标指向编辑框时弹出的提示信息）
Name ：对象标识名
对CheckBox对象，是通过Checked属性确定选择状态。该属性为True表示选中状态，为False表示未选中状态。
19、你如何理解OpenDialog（打开文件对话框）和SaveDialog（保存文件对话框）这两个组件的基本功能？它们负责文件的打开和保存吗？
答：
两个组件对象只是提供了一个Windows的标准对话框。用户在对话框中可以指定要打开或要保存的文件的名字，并将用户在对话框中选择的文件名存入Filename属性中。
这两个组件对象并不执行打开或保存文件的操作。
20、简要回答"什么是Delphi？"
答：Delphi是面向对象的、可视化的集成开发环境。它使用对象Pascal作为基本的编程语言，它可用来开发各种图形用户界面的程序，特别是数据库的应用程序。
二、编程题
1、开发用户界面如下图所示的应用程序：
edit3.text:=Edit3.text+‘ 余 ‘+ inttostr(x mod y) ;
end;
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);