【正文】 找 按鈕可以搜索符合條件的關(guān)鍵字，主要使用到如下一些語句： begin if(=39。++39。++39。 end。 integer i:=variant[i]挨個取出。為了實現(xiàn)這個功能，可參考 掃描響應(yīng)函數(shù)、尋找字符串函數(shù)、串口中斷函數(shù) 的處理。 (注意：最后的分號要加上 ) ? 掛斷電話 ATH ? 發(fā)送短信 先發(fā)送 AT+CMGS=137xxxxxxxx，在收到 符號之后，發(fā)送內(nèi)容和 chr(26)符號 使用注意： (1)每條命令之后都要加上回車符號 chr(13)； (2)在多條命令組合、需要等待模塊響應(yīng)的情況下，應(yīng)使用延時去等待模塊響應(yīng)，如發(fā)送短信函數(shù)中，使用了多個 sleep()函數(shù)： procedure (tgt,msg:string)。 sleep(200)。 sleep(1000)。 這是保證模塊正常運行的基本條件（要使用 sleep()函數(shù)，在 unit開頭的 use 里加入 windows）。 圖 撥號結(jié)果顯示 20 在撥號界面有個列表，此列表列出了所有的聯(lián)系人，聯(lián)系人有具體的信息，包括姓名、號碼的屬性、 id 號碼、 tate 狀態(tài)信息，其中tate 狀態(tài)信息顯示語音信息是否成功發(fā)送給指定人，如果失敗，在對應(yīng)的聯(lián)系人后面會顯示“失敗”，成功則顯示“成功”。撥號規(guī)則設(shè)置是指設(shè)定撥打?qū)Ψ教柎a后，等待對方接聽的時間設(shè)置。開發(fā)此軟件不但讓我熟悉了一般的大型軟件開發(fā)流程（主要包括單獨模塊測試、模塊聯(lián)合測試、資源規(guī)劃、流程規(guī)劃、整體設(shè)計、 BUG調(diào)試等），也讓我知道了在開發(fā)功能復(fù)雜的軟件時需要的設(shè)計態(tài)度，一定要要先規(guī)劃，后設(shè)計，在調(diào)試大的系統(tǒng)時，猶如堆一個巨大的積木，切記浮躁和盲動。在開發(fā)中遇到問題時，張老師十分耐心地輔導(dǎo)我，一起分析問題原因，好幾次跟我一起調(diào)試到非常晚，讓我非常感動，也教會了我作為一個嚴(yán)謹(jǐn)?shù)墓こ處煈?yīng)有的堅韌和堅持不懈的精神。 //檢測可用串口并加載在 bobox 內(nèi) setreame()。 因為 memo 一行不能超過 255 個字，所以用 add繼續(xù)添加說明 39。 24 var reg:tregistry。 reg:=。,false)。 end。 。)。 (39。240039。)。 (39。3840039。)。 (39。46080039。)。 begin :=39。 {******************************************************** * 刪除內(nèi)容 * * * *********************************************************} procedure (col,str:string)。=39。 {******************************************************** * 打電話 * * * *********************************************************} procedure (num:string)。39。 begin :=39。 :=39。//延時 10ms :=msg+chr(26)。 var nowtime:Tdatetime。 {******************************************************** 27 * 刷新 dbgrid 行寬 * * * *********************************************************} procedure ()。 end。 begin temp1:=。939。 28 end。))。)。 :=true。 :=false。錯誤39。 {******************************************************** * 停止錄音 * * * *********************************************************} 29 procedure (Sender: TObject)。 (39。,MB_ICONINFORMATION+MB_OK)。保存聲音文件出錯 !39。 :=True。 {******************************************************** * 制作 wav 文件頭 * * * *********************************************************} procedure ( channels : word。 var wf : file of TWavHeader。 := $45564157。 := channels。 := resolution。 {打開對應(yīng)文件 } rewrite(wf)。 {******************************************************** * 點擊選擇 wav 文件 * * * *********************************************************} procedure (Sender: TObject)。.wav39。錯誤39。 {******************************************************** * 試聽按鈕 * * * *********************************************************} procedure (Sender: TObject)。停止 39。 end else begin :=39。 end end。 {******************************************************** * 點擊選擇數(shù)據(jù)庫文件 * * * *********************************************************} procedure (Sender: TObject)。 if then begin if 39。Provider=。Password=。Provider=。Password=。select * from friends39。 //設(shè)置列寬 。 except (39。,MB_ICONERROR+MB_OK)。,39。 {******************************************************** * 刷新顯示 * * * *********************************************************} procedure (Sender: TObject)。 {******************************************************** * 刪除按鈕 * * * *********************************************************} procedure (Sender: TObject)。 setdbgridwidth()。錯誤39。 var i:integer。 :=tabsheet2。 :=true。 mystr1:=39。 kk:=0。 end。 try 。 {******************************************************** * 連接模塊按鈕 * * * *********************************************************} procedure (Sender: TObject)。斷開 39。,N,8,139。//這個是發(fā)生中斷的字符數(shù)，為 0 就不產(chǎn)生onm 事件，默認(rèn)為 0 :=0。 end else begin :=39。 end。update friends set statue=失敗 where id=39。 。update friends set statue=成功 where id=39。 。OK39。 。 mystr2:=39。,strtt)=1) and (flag=2))then begin flag:=0。39。 end。 begin if =evreceive then begin str:=。39。 myscan(mystr1+mystr2)。 mystr1:=mystr1+str。 end。 begin flag:=0。 end。 end。+inttostr(kk)+39。+inttostr(flag)+