beginif opendialog1.( execute ) then beginassignfile (f, opendialog1.filename );
append (f);
writenln(f, 我成功的 。

18、在这个文件后面加了一行文本 。
flush(f);
closefile(f);
end;
end;
2在窗体上面绘制出一条规则的余弦曲线 ， 使其尺寸约为窗体的procedure tform1.formpaint(sender:tobject);
var x,y:real;
j,j,h:integer;
beginh:=form1.height div 2;
for i:=0 to form1.width do beginx:=i*(2*3.14/form1.height);
y:=cos(x);
j:=trunc(0.8*y*h)+h;
canvas.pixelsi,j:=clred: end;
end;
。

19、2 个单元文件 ， 文件名分别是 。
);
80%， 写出编程步骤与代码 。
unit1 、 unit2， 它们对应的窗体名是装订 线atdatasource b topendialog c ttable d tscrollbar4设有过程 procedure pro(var x,y:integer);
变量 a,b 为整型变量 ， 其值分别为 5、6 ， 则合法的过程调用语句是（ da pro(5,6)bpro(5,b) c pro(a,6)d pro(a,b) 5 下列组件中不能获取焦点的是（b） 。
atedit b tlabelc trichedit d ttreeview6 定义抽象类必须使用的指令字是（ 。

20、 a） 。
aabstractb virtualc dynamicd override ” 7 delphi 是哪个公司的产品（ c） 。
a microsoft b ibm c borland d dom8窗体上放置有一个 tedit 类控件 edit1， 当在 edit1 中按下 a键时触发的事件和事件顺序是（ a） 。
aonkeydown-onkeypress-onkeyup b onkeydown-onkeyupconkeypressd onkeydown-onkeyup-onkeypress9在 radiogroup 组件中有 4 个单选框 ， 当选中第 2 个单选框时 ， radiogroup 组件 。

21、中的 itemindex 属性值应为（ a0 b 1c 2d310函数和过程的区别为（ a） 。
a函数执行后返回一个值 ， 而过程不需返回值 b过程执行后返回一个值 ， 而函数不需返回值 c过程在被调用时 ， 能执行某种特殊功能并能返回到调用它的地方 d函数在被调用时 ， 能执行某种特殊功能并能返回到调用它的地方 1132 and 27 的值是（ b） 。
a59b 0c 27d 32 12 窗体与数据模块的扩展名是（ b） 。
a.dcu b .dfm c .pas d .dpr 13 delphi 中用什么函数来析构一个组件（ c） 。
aconstructor b destroy c free d create 14 。

22、 一个指针变量ptr 的域成员 fs 访问的方法是（ c） 。
aptr-fsbptr.fsc ptrfs d ptrfs15type aarrays=1?8,1?5 of integer， 该类型定义了多少个下标元素（ d） 。
a45 b 54 c 48 d 40 二、判断题（每小题 1分 ， 共 10 分）1函数 messagedlgpos 与 messagedlg 极为相似 ， 只是messagedlgpos 函数能够控制信息对话框的出现位置 。
（ 对 ） 2bitbtn 控件可以用来制作一个带图片的按钮 ， 而 speedbutton则不能 。
（ 错 ） 3mediaplayer 控件的 autoena 。

23、ble 属性是用来 控制该控件是否可用 。
（ 错 ）4图形组件没有输入焦点 ， 不能接受用户的输入 ， 它只具有向用户显示的功能 。
（ 对 ）51、pascal 语言中可以把一个实数赋值给 一个整型变量 ， 系统会自动取整 。
（ 错 ） 6所有类都有 name 属性 。
（ 错 ）7variant 类型的变量被动态赋值为一个特定的数据类型后 ， 不能 再赋值为一个其它的数据类型 。
（ 错 ） 8在 mdi 应用程序窗口中 ， 如果将一个窗体设为父窗体 ， 要将它的 formstyle 属性设为fsstayontop。
（ 错 ）9tobject 是 delphi 的基类 ， 系统中的每一个类都是 tobject 的子类 。
（ 对 ）1 。

24、0timer 组件常称为 “定时器 ” ， 它每隔固定的时间间隔可以触发一个 ontimer 事件 。
（ 对 ） 三、填空题（每空 2 分 ， 共 20 分）1delphi 有三种控制循环的语句： repeat 语句 ，while 语句 ，for语句 。
2delphi 支持 3 种类型的注释： 注释 ，(* *) 注释 ，/ 注释 。
3所有可视化的 vcl 控件都是从 tcontrol 基类派生而来的 。
） 。
） 。
b【篇二： delphi 程序设计试题及解答】lass=txt 一、填空题（ 20 分 ， 每空 2 分）1、现实世界中对象具有自己的状态和行为 。
对应着 ， 面向对象技术中的对象可以具有自己的属性和。
2、 。

25、delphi 应用程序中项目文件的扩展名是。
3、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构 ， 其中每种结构只能有 和一个出口 。
4、在 delphi 集成开发环境中 ， 如果想要直接设置或者修改对象的属性 ， 可以通过对象查看器（ object inspector ）中的 窗口直接进 行设置 。
5、listbox 对象列表框中的内容是通过6、时钟组件 (timer) 能有规律的以一定时间间隔触发事件 。
7、如果让界面上的一个按钮变为不可用 ， 需要将它的 false。
8、image组件可通过设置其 true 使 image组件根据图像的大小自动调整显示窗口大小 。

来源：(未知)

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

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