 //断开数据库连接 ADOConnectionl．Close； ∥设置单词文件访问路径  3．2 Delphi中TTS检测和使用 利用SPAPI中的特别函数可以获取当前系统中所安装的 TrS及其对象，根据这些对象就可以访问相应的1TS了，具体 代码如下： (1)TrS的检测   (2)TTS的设置 将当前l礴瓣置到svReadWord对象  (3)TTS发音 //TTS发音方法  3．3单词的浏览 单词浏览分为：自动浏览和手工点击浏览。   UpdateBtns； end； ∥后一个单词的点击事件 procedure TfrmWordRecite sbtnNextClick(Sender：TObjecn)； Begin ，，如果不是最后一个单词。则移动到下一个 讦ADOQueryl RecNo<ADOQueryI RecordCount then ADOQueryl．Next； ∥更新界面元素 UpdateBtns； ∥如果选中发音．则发音 if cbxRead．Checked then svReedWord Speak《dbtxtWord．Field．AsString．SVSFD ault)； nd； 3．4环境与状态保存 将当前用户所做的选择保存在配置文件．以方便下次使 用。具体代码如下： procedure TfrmWordRecite SaveCurCfg(Idx：Integer=-1)： var Cfglni：TlniFile； Begin ，，打开系统配置文件 Cfglni：=TIniFile Create(CfgFileName)； ，，保存词汇表信息 Cfglni，WriteString(’当前学习信息’，’目前教材’．’基础词汇 ’)： Cfglni WriteString(7当前学习信息’．’数据文件’，Fundmen- taIFile)； Cfglni．WriteString(’当前学习信息’，’数据表’．’(VOCABU— LARY FUNDAMENTAL>7)： ∥保存课程信息 汗rbtnByWordNum．Checked then Cfglni WriteInteger(7当前学习信息’．’课程分组7．01 else Cfglni．WriteInteger(’当前学习信息‘．‘课程分组’，1 J： CfglniWdteInteger I’当前学习信息’．’平均词数’．sedt- SpecifyWordCnt．Value)； ，，保存当前设置信息 CfgIniWriteBool{7当前学习信息?’是否朗读’，cbxRead Checked)； ifIdx>=0then Cfglni．WriteInteger(’当前学习信息’．’当前语音’．Idx)； CfgIniWriteInteger(’当前学习信息’．’停留时间’，sedt- ShowTime．Value)； CfglniWriteBool(’当前学习信息’，。显示单词’， cbxShowEng Checked)； CfgIniWriteBool(’当前学习信息：’显示音标’． cbxShowSym Checked)； CfgIni。WriteBool{’当前学习信息’，’显示中文’， cbxShowChn Checked)； CfgIniWriteBool(7当前学习信息’，’中文缓出’，cbxAp- pearChn．Checked)； CfgIni．WriteBool C’当前学习信息‘，’显示词汇列表’．cbx- HideList．Checked)； ，，保存当前学习进度 CfgIni．WriteInteger(’当前学习信息’．’上次学习进度’，Cur- RecNo)； end； 4系统运行效果 英语词汇在各类英语考试中占着极其重要的地位．而词汇 学习却是一个极其慢长和费力的事情，本文借助Delphi高效开 发环境．设计并实现了一款快速应试词汇记忆软件，特别适合 大学四、六级、研究生入学考试、博士生入学考试及各类留学 英语考试人员快速掌握词汇．提高考试成绩。运行效果如图I 所示。  |
