用Delphi自制英语复读机

用Delphi自制英语复读机(2)
学习资料的添加：
单击增加按钮用于增加学习资料。需要注意的是在增加新的文件之前应检索原有的列表，以防止重复。代码如下：
procedure TRepeaterForm.AddBtnClick(Sender: TObject);var  fn: string;begin  if OpenDialog1.Execute then begin    fn := OpenDialog1.FileName;    if SectionList.Items.IndexOf(fn)<0 then  //先检索该文件，如果不存在      SectionList.Items.Add(fn);          //加入到列表中  end;end;

学习资料的选择：
通过重载OnClick方法实现。先取得单击时的索引，然后通过Items[索引]取得文件名。将文件名赋值给Mediaplayer的Filename属性，然后调用Open方法即可。（代码略）
另外，在程序的初始化时要打开学习资料文件；程序退出时将学习资料存盘。这些功能都是通过TlistBox.Items.LoadFromFile和TlistBox.Items.SaveToFile实现的（代码略）。
该程序在中文Windows98+Delphi5.0环境下调试通过。全部源代码可Mail作者索取。











通讯地址：河北固安华北石油职工大学采油教研室 李晓平
E-Mail: lXP@htxx.com.cn



--------------------------------------------------------------------------------

欢迎阅读China ASP的专栏文章,需要转载请与我们联系

Copyright &copy; 上海聚声计算机系统工程有限责任公司 1999-2000, All Rights Reserved