《delphi复习题答案.docx》由会员分享，可在线阅读，更多相关《delphi复习题答案.docx（9页珍藏版）》请在三一办公上搜索。
1、delphi复习题答案Delphi Gary 复习题 1、在文件操作中Eof的意思是 文件结束指针 。 2、在Delphi的BDE数据集中通过 TDataSouece 控件来实现对SQL语言的支持。 3、要想使窗体中的某个控件获得焦点，则需调用 SetFocus 方法。 4、MaskEdit是格式文本输入对象， Input Mask Editor 属性为它提供了过滤文本的格式。P64 5、由于TDBGrid控件和TDBNavigator控件是自动地访问数据集控件中所有可以访问的字段控件的，因此它们没有 字段值 属性。P268 6、函数format(本场%已进了1个球！,李铁)返回的字符串为 本
2、场李铁已进了1个球! 。 7、TEdit控件的MaxLength属性是设置 所能接受的最大字符数 。 8、想在Button按钮上设置快捷方式，需要在Caption属性中应用符号 & 。 9、通过数据库字段对象的 TStringField 属性可以读取字段值，并且将它转换成字符串类型。 10、Delphi为用户提供一种Append方法，用来 打开一个已经存在的文件以便与在文件末尾添加文本 。 11、常量是一种内容不能改变的标识符，常量声明采用保留字 const 。 12、Delphi的计时器的Interval属性设置为1000，即是每隔 1 秒会被触发一次。 1、以下正确的枚举类型的定义是。 t
3、ype vowel=(a,e,i,t,u) type num=(1.3, 8.10) type color=(red, blue, black) type realtype=(1.5, 2.5, 3.5, 4.5) 2、已知如下子界类型定义及变量声明： Type ntype= -10 . 10; Var m: ntype; n: integer; 问下列语句哪一个可能产生错误：。 n := m; m :=n; n := abs(m); n := n+m; 3、下列哪些符号哪一个是Delphi6中的合法变量名。 AB5 0AB Then AB8 4、下面哪个是delphi工程文件的扩展名。 北1
4、01 1 / 6 Week18 Thur Delphi Gary .pas .dpr .cfg .dfm 5、Memo控件的Align属性用于调整该对象在窗口中的对齐方式，当需要该控件顶部对齐时，其值可以设置为。 alTop alClient alBotton alright 6、设有一个自定义过程声明如下： Procedure silly(a: integer; var b: integer); Var c: integer; Begin a:=1; b:=12; c:=14; end; 执行下述程序段： a:=4; b:=8; c:=6; silly(b, a); 则a, b, c的值分别
5、是什么？ (12,4,6) (4,1,14) (12,8,6) (12,1,6) 7、下列语句不是标准的SQL语言中的。 Select Insert Rename Delete 8、下列常量说明语句中哪个是合法的。 Const C:=(a6.8)； Const C: 6.8； Const C=6.8； Const C:=10 and 20； 9、设有如下程序段： S: = 100 ; n: = 3 ; for ch :=a to e do begin if not odd(n) then s := s n ; n := n + 5; end; 假设所有变量均已说明，程序执行后s的值是： 97
6、89 74 58 10、下面哪一条delphi6语句能够实现如下功能，在列表框ListBox1的第5行中插入一个新选项欢迎使用Delphi。 ListBox1.Item.Insert(5, 欢迎使用Delphi); ListBox1.Item.Add( 欢迎使用Delphi, 5) ; 北101 2 / 6 Week18 Thur Delphi Gary ListBox1.Item.Insert(4, 欢迎使用Delphi); ListBox1.Item.Add(4, 欢迎使用Delphi) ; 11、几何图形控件Shape位于工具栏上的additional页中，用于在窗体上绘制一些常见的几何
7、图形，下面哪个图形是不能由Shape绘制的。 圆角正方形 矩形 圆形 菱形 12、有以下程序段： i :=1; repeat j :=j*i; i :=i+2; until j2*i; 假设所有变量均已说明，该循环体的执行次数是。 1 2 3 4 三、判断题 1、函数Pos(S0, S)返回子字符串S0在字符串S中的位置，若S0在S中，则返回为0。 (对) 3、Edit控件既可用来供用户输入单行和多行文本也可以用来显示它们。 4、组合框ComboxBox兼有EditBox和ListBox两者的功能，其SelText属性是用来存储显示于编辑区中被选中项的内容。 (对) 5、在Object Pas
8、cal语法中，函数的返回值通过函数名或预定义的Result带回，6、当容器控件的位置、可视性以及有效性属性发生改变时，其中的子控件也发生同样的变化。 7、Delphi使用的就是Object Pascal语言，Object Pascal和Turbo Pascal是完全相同的。(错) 8、要使SpeedButton像复选框那样工作，只需将GroupIndex属性设为大于0，且不与任何其他SpeedButton的GroupIndex属性值相同。 (错) 9、在Object Pascal语法中，函数的返回值通过函数名或预定义的Result带回，使用Result完全等同于函数名。 10、某过程声明如下：
9、Procedure MyProcedure (x :Real, y: integer=8)；对上述过程，下面调用语句是等效的：MyProcedure(b,8)和MyProcedure(b)。 11、从物理上讲，全程变量和局部变量在程序编译时，系统就在内存数据区中为2、长字型LongWord是4字节的大小的数据类型。 (对) 使用Result完全等同于函数名。 北101 3 / 6 Week18 Thur Delphi Gary 它们分配了所需的存储空间，并且在整个程序的运行阶段始终占有它。(对) 12、对Ttable部件使用字段编辑器建立一个字段列表，包括字段的顺序，字段的类型等，即使磁盘上实
10、际的数据库表结构发生了改变，建立的这个字段列表也不会发生改变。 四、程序设计题 1） 使用timer控件，设计一个简单计时器。 建立应用程序用户界面与设置对象属性。选择“新建”工程，进入窗体设计器，在窗体中增加两个按钮Button1Button2、一个掩码编辑框Maskedit1和一个计时器控件Timer1。其中计时器控件Timer1可以放在窗体任何位置。 各对象属性的设置如下表。 对象 MaskEdit1 Timer1 Button1 Button2 属性 EditMask Enabled Interval Caption Caption 属性值 ！90:00:00L;1;0 False 1
11、00 S开始 R重置 说明 掩码字符串 程序启动为停止状态 编写程序代码 编写Button1的OnClick事件代码： Procedure TForm1.Button1Click(Sender：Tobject)； begin If button1.Caption := &S 暂停 Then begin button1.Caption := &C 继续； Timer1.Enabled :=Flase； end Else begin button1.Caption := &S 暂停； If maskedit1.Text = 00:00:00:0Then Timer1.Tag :=0； Timer1
12、.Enabled:=Ture； End； End； 编写Button2的OnClick事件代码 Procedure TForm1.Button2Click(Sender:TObject); begin timer1.Tag:=1; maskedit1.Text:=00:00:00:0; end 编写Timer1的OnTimer事件代码： Procedure TForm1.Timer(Sender:TObject); 北101 4 / 6 Week18 Thur Delphi Gary var h，n，s，m，：integer; begin m := timer1.Tag + 1; timer1
13、.Tag := m; s := m div 10; /总秒数 m := m mod 10; /1/秒数 n := s div 60; /总分钟数 s := s mod 60; / 秒钟数 h := n div 60; /小时数 n := n mod 60; /分钟数 maskedit1.Text := format(%d:%d:%d,h,n,s,m); end; 2） 编写小时钟程序，利用timer控件来控制指针的转动。 3） 设计一个能够实现SQL查询的应用程序，掌握SQL基本的操作语句。 使用GotoKey方法查找数据记录 FindKey方法查找数据库的记录 设计程序利用上述两种方法查询数
14、据库记录。 程序代码如下： procedure TForm1.Button1OnClick(Sender:TObject); begin with Table1 do begin Label3.Caption :=; Edit2.TEXT:=; IndexFieldNames:=学号; setkey; FieldByName(学号).AsString:=Edit1.Text; If GotoKey then begin Label3.Caption:=查询成功; EDIT2.TEXT:=FieldByName(姓名).AsString; end 北101 5 / 6 Week18 Thur D
15、elphi Gary else Label3.Caption:=查询失败 end; end; 如果使用Findkey方法代替上例中的处理过程，则采用如下的程序代码： procedure TForm1.Button1OnClick(Sender:TObject); var SeekValue:string; begin with Table1 do begin Label3.Caption:=; Edit2.text:=; IndexFieldName:=学号; SeekValue:=Edit1.Text; If FindKey(SeekValue) then begin Label3.Caption:=查询成功; Edit2.text:=FieldByName(姓名).AsString; end else Label3.Caption:=查询失败； end; 以上题目仅供复习使用，考试要注意细心读题。 考试题量较多，同学们要注意把握好时间！ 尽量不要留出题目不写！ 考试不准携带纸条入内，一旦发现零分处理。 北101 6 / 6 Week18 Thur
