①通过主菜单Help的Delphi Help命令调出帮助主页面,在“索引”页输入框中输入要查找的showmessage单词,即可找出相关的帮助信息。 ②在代码中如果调用了showmessage过程,可将光标置于该单词中,然后按F1键,即可找出该过程的帮助信息。
问答题简述利用Delphi开发一个项目的基本步骤。
问答题简述面向对象技术中“类”与“对象”的概念。结合Delphi中使用的组件,举例说明什么是类、什么是对象。
问答题结构化程序设计的基本原则是什么?
问答题编写一段程序,有a,b两个整数,现在要把a变成两数中的较大值,把b变成较小的值,比如原来a=1,b=5,通过程序要变成a=5,b=1
填空题利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件,并在播放时有播放进度提示(如图)。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件(“打开文件”-Button1,“退出”-Button2),1个时钟组件Timer1和1个OpenDialog组件OpenDialog1,一个gauge组件(用作播放进度显示)。进度提示条每隔0.1秒更新一次进度。将程序补充完整。 procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute Then Begin MediaPlayer1.filename := OpenDialog1. (①) ; Label1.(②) := OpenDialog1.filename; MediaPlayer1.open; 打开声音文件 MediaPlayer1. (③) ; 开始播放 Timer1.enabled := (④) ; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Interval := (⑤) ; 每隔0.1秒更新一次进度 gauge1.maxvalue := MediaPlayer1.length; gauge1. (⑥) := MediaPlayer1.Position; 更改进度 end; procedure TForm1.Button2Click(Sender: TObject); begin close; end;