英語逐漸成為一種世界性的語言，現代人學習英語的熱情一浪高過一浪，所以，英語復讀機十分的熱銷。但是，無論功能如何強大的複讀機都有一個明顯的缺陷――重讀時間的固定的。如果復讀時間太短，那麼，當遇到長句子時就無能為力；如果復讀的時間很長，使用時就免不了複讀一些多餘的部分，免不了進行快進（時下有些200秒的複讀機具有快進功能），這與磁帶的快進一樣麻煩！所以，筆者想利用Delphi強大的媒體播放控制來開發軟體複讀機。軟體複讀機最大的優點是，無論是句子的長短您都能自如地複讀！絕對不需要倒帶，也不需要快轉。不僅如此，軟體複讀機還具有隨機選讀功能，這是一般複讀機不好實現的。
準備工作
Delphi的媒體播放控制可已播放各種聲音檔案。我們可以依照自己的喜好把學習資料錄製到電腦中，存成適當的格式。一般可存成wave檔或mp3檔。
複讀機的開發
開發軟體複讀機使用的主要是Delphi的媒體播放控制TMediaplayer。此控制項在系統控制(system)頁中。
首先創建一個應用程式。設定主視窗的BorderStyle為BsDialog，禁止視窗的放大與縮小。設定KeyPReview為True，讓主視窗處理鍵盤事件。
在主窗體上放置控制項：
其中：
媒體播放器是程式的關鍵控件，用來實現聲音的播放。
TrackBar用來指示目前的播放進度。
左邊的TlistBox(SectionList)用來存放將要播放的聲音檔案名稱（學習資料）。
右邊的兩個TlistBox(StartList、StopList)用來記錄一個複讀過的句子。
'增加'與'刪除'按鈕用於維護學習資料。
TrackBar1用於顯示播放進程。
Timer1用於動態顯示播放進度。
OpenDialog1用於選擇播放檔案。
複讀功能的實作：
① 程式中設定兩個整數（StartPos, SstopPos）用於記錄播放的起止點，並在初始化時將StopPos賦值為-1。
② 每次播放時記錄當時的起始值：StartPos := Mediaplayer1.Position;
③ 程式中用空白鍵控制複讀，回車鍵繼續放音。首先，設定主窗體的KeyPreview為True，讓主窗體能夠截取按鍵訊息。然後，重載OnKeyDown方法。程式碼如下：
自由選讀功能的實作：
由於復讀時記錄了所有複讀過的句子的起止點，所以可以進行任意一句的複讀。當使用者用滑鼠雙擊'往昔歲月'中某一行時，可直接切換到該句的播放。程式碼如下：
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;
學習資料的選擇：
透過重載OnClick方法實現。先取得點選時的索引，然後透過Items[索引]取得檔案名稱。將檔案名稱賦值給Mediaplayer的Filename屬性，然後呼叫Open方法即可。 （程式碼略）
另外，在程式的初始化時要開啟學習資料檔；程式退出時將學習資料記憶體。這些功能都是透過TlistBox.Items.LoadFromFile和TlistBox.Items.SaveToFile來實現的（程式碼略）。
該程式在中文Windows98+Delphi5.0環境下除錯通過。全部原始碼可Mail作者索取。