导语:易匚品牌汇精选并编辑了各类与复读机相关的信息,希望能帮大家全方位的了解复读机,本文主要为大家介绍的是:【delphi自制英语复读机】。复读机原理-工艺-技术篇:下面文章详细为我们介绍了自由选读功能的实现是由于在复读时记录了所有复读过的句子的起止点,所以能进行任意一句的复读。
delphi自制英语复读机
自由选读功能的实现:
由于在复读时记录了所有复读过的句子的起止点,所以能进行任意一句的复读。当用户用鼠标双击‘往昔岁月’中某一行时,可直接转换到该句的播放。代码如下:
procedure TRepeaterForm.ListDblClick(Sender: TObject);
begin
SID := (Sender as TListBox).ItemIndex; //取得当前行的索引
SID StopList.ItemIndex := SID; //将终点列表设置为
SID StartList.ItemIndex := SID; //将起始列表设置为
SID StartPos := StrToInt(StartList.Items[SID]);//取得开始位置
StopPos := StrToInt(StopList.Items[SID]);//取得终止位置
Mediaplayer1.StoP; //停止当前的播放
Mediaplayer1.StartPos := StartPos; //设置新的播放范围
Mediaplayer1.EndPos := StopPos;
Mediaplayer1.Play; //播放指定范围的声音
end;
学习资料的添加:
单击增加按钮用于增加学习资料。需要注意的是在增加新的文件之前应检索原有的列表,以防止重复。代码如下:
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;
学习资料的选择:
通过重载on click方法实现。先取得单击时的索引,然后通过Items[索引]取得文件名。将文件名赋值给Mediaplayer的Filename属性,然后调用Open方法即可。(代码略)
另外,在程式的初始化时要打开学习资料文件;程式退出时将学习资料存盘。这些功能都是通过TlistBox.Items.LoadFromFile和TlistBox.Items.SaveToFile实现的(代码略)。
该程式在中文视窗系统98+Delphi5.0环境下调试通过。全部原始码可Mail作者索取。
【复读机什么牌子好】以上内容为大家介绍了『delphi自制英语复读机』,易匚品牌汇做为一家专业的商业数据分析机构,综合各大平台的复读机品牌与用户口碑等数据,通过系统专业的算法分析,网罗并优选出全网口碑较好的复读机品牌店铺,提供品牌复读机热销榜等数据,希望能给大家以选购复读机的参考。