(错)8、要使 speedbutton 像复选框那样工 。

43、作 ， 只需将 groupindex 属性设为大于 0 ， 且不与任何其他 speedbutton 的 groupindex 属性值相同 。
(错)9、在 object pascal 语法中 ， 函数的返回值通过函数名或预定义的result 带回 ， 使用 result 完全等同于函数名 。
10 、某过程声明如下： procedure myprocedure (x :real, y: integer=8) ；对上述过程 ， 下面调用语句是等效的： myprocedure(b,8) 和 myprocedure(b)。
11、 从物理上讲 ， 全程变量和局部变量在程序编译时 ， 系统就在内存数 据区中为2、长字型 longwo 。

44、rd 是 4 字节的大小的数据类型 。
(对)使用 result 完全等同于函数名 。
它们分配了所需的存储空间 ， 并且在整个程序的运行阶段始终占有它 。
(对) 12 、对 ttable 部件使用字段编辑器（ fields editor ）建立一个字段列表 ， 包括字段的顺序 ， 字段的类型等 ， 即使磁盘上实际的数据库表结构发生了改变 ， 建立的这个字段列表也不会发生改变 。
四、程序设计题1） 使用 timer 控件 ， 设计一个简单计时器 。
建立应用程序用户界面与设置对象属性 。
选择 “新建 ”工程 ， 进入窗体设计器 ， 在窗体中增加两个按钮 button1 button2 、一个掩码编辑框maskedit1 和一个计时器控件。

45、timer1。
其中计时器控件 timer1 可以放在窗体任何位置 。
编写 button1 （开始按钮）的 onclick 事件代码： proceduretform1.button1click(sender ：tobject) ； beginif button1.caption := 暂 停s then beginbutton1.caption := 继c续； timer1.enabled :=flase ； end elsebeginbutton1.caption := 暂s停；if maskedit1.text = 00:00:00:0 then timer1.tag；:=0timer1.e 。

46、nabled:=ture ； end ； end ；编写 button2 （重置按钮）的 onclick 事件代码 proceduretform1.button2click(sender:tobject);
begintimer1.tag:=1;
maskedit1.text:= 00:00:00:0 ;
end编写 timer1 的 ontimer 事件代码：procedure tform1.timer(sender:tobject);
varh ， n ， s ， m ， ：integer;
beginm := timer1.tag + 1;
timer1.tag := m;
s := m div 10;
/。

【delphi|delphi面试题及答案】47、总秒数m := m mod 10;
/1/ 秒数 n := s div 60;
/ 总分钟数 s := s mod60;
/ 秒钟数 h := n div 60;
/ 小时数 n := n mod 60;
/ 分钟数maskedit1.text := format( %d:%d:%d,h,n,s,m);
end;
2） 编写小时钟程序 ， 利用 timer 控件来控制指针的转动 。
3） 设计一个能够实现 sql 查询的应用程序 ， 掌握 sql 基本的操作语句 。
（1） 使用 gotokey 方法查找数据记录 （2） findkey 方法查找数据库的记录设计程序利用上述两种方法查询数据库记录 。
程序代码如下：procedure tform1.button1onclick(sender:tobject);
beginwith table1 do beginlabel3.caption :=;
edit2.text:=;
indexfieldnames:= 学号;
setkey;
fieldbyname( 学号).asstring:=edit1.text;
if gotokey thenbeginlabel3.caption:= 查询成功 ;
edit2.text:=fieldbyname( 姓名).asstring;
end 。

来源：(未知)

【学习资料】网址：/a/2021/0413/0021925158.html

标题：delphi|delphi面试题及答案( 六 )