【正文】 15:SEE:=39。 17:SEE:=39。.39。+SEE)。 ShowMessage(39。 CloseFile(F)。 功能實(shí)現(xiàn)需要加入 timer， gauge 和 imag 控件，導(dǎo)入圖片，使圖形更加美觀。 if = then //計(jì)時(shí)計(jì)的間隔時(shí)間 10 毫秒， maxvalue=100， 1秒鐘后進(jìn)入登錄窗口 begin 。 end。為了實(shí)現(xiàn)系統(tǒng)自動(dòng)推薦，則在fmain 中的 onshow 事件中寫入推薦代碼。 end。 //保存一行字符 SE:integer。//定義字符截取 i:integer。// inn:integer。 SEE:=39。 AssignFile(F,39。//打開一個(gè)存在的文件 ,另 Rewrite 創(chuàng)建文件并打開 while not eof(F) do begin Readln(F,S)。//取最后一個(gè)字符 // ShowMessage(SS)。 //設(shè)置分隔符 :=S。這個(gè)數(shù) 39。//取最后一個(gè)編號為推薦編號 //showmessage(39。 alli:=。 if i=1 then begin temp:=1。+SEE。 if temp=1 then begin inn:=strtoint(SEE)。新聞 39。本地新聞 39。在線直播 39。天氣 39。健康 39。商業(yè) 39。體育 39。BBS39。 :=inttostr(inn)+39。向您推薦 :39。 end。 CloseFile(F)。 同時(shí)鍵入 lanbel,更改 caption 屬性，描述客戶所進(jìn)入的網(wǎng)頁的頁面。 。 在操作舒適度方面稍好，符合系統(tǒng)的基本要求。主要工作又包括兩部分，一是模型接口的設(shè)計(jì)，二是人機(jī)接口的設(shè)計(jì)。首先要對任務(wù)進(jìn)行分析，先要處理好數(shù)據(jù)，這個(gè)過程可以運(yùn)用各種工具和方法，只要能將數(shù)據(jù)處理成所需的結(jié)構(gòu)即可。這個(gè)部分的處理需要對Clementine 的各個(gè)控件很熟悉，要掌握序列關(guān)聯(lián)分析的理論知識，最后要對分析出的結(jié)果進(jìn)行合理性分析，結(jié)合實(shí)際，判斷自己得出的結(jié)論是否有應(yīng)用性。 以上就是我們整個(gè)設(shè)計(jì)過程中需要注意的東西。 。 C++預(yù)處理數(shù)據(jù)， Clementine分析數(shù)據(jù)，得出結(jié)果， delphi設(shè)計(jì)推送系統(tǒng)。 我們是設(shè)計(jì)一個(gè)網(wǎng)頁推薦系統(tǒng)，采用的工具是 delphi，可視化窗口程序設(shè)計(jì)。這個(gè)過程要對 c++文件導(dǎo)入導(dǎo)出的語法很熟悉才行，同時(shí)還要了解數(shù)組函數(shù)等基本知識，部分函數(shù)可以在網(wǎng)上收索得到，靈活運(yùn)用即可。這就是最終所做出的基于 msnbc 數(shù)據(jù)的網(wǎng)頁序列分析系統(tǒng)。 30 結(jié)論 本次 基于 msnbc 數(shù)據(jù)的網(wǎng)頁序列分析系統(tǒng)的設(shè)計(jì)過程主要有三大部分。 end. 24 圖 11 單個(gè) 網(wǎng)頁 軟件測試 ，進(jìn)入加載界面如圖 12： 圖 12 加載界面 2． 進(jìn)入主界面，點(diǎn)擊， 13 號 MSN 體育，訪問網(wǎng)頁 MSN 體育，如圖 13，圖14 所示： 25 圖 13 選擇進(jìn)入網(wǎng)頁 圖 14網(wǎng)頁 顯示 ， 7 號網(wǎng)頁音樂，訪問網(wǎng)頁音樂，如圖 15，圖 16所示： 26 圖 15 進(jìn)入網(wǎng)頁 圖 16網(wǎng)頁 顯示 ，系統(tǒng)自動(dòng)推薦 13 號網(wǎng)頁 MSN 體育，如圖 17： 27 圖 17 顯示推薦 網(wǎng)頁 ，系統(tǒng)跳出彈框，顯示推薦網(wǎng)頁，如圖 18 圖 18 按鈕推薦網(wǎng)頁 7 號，選擇音樂，進(jìn)入音樂網(wǎng)頁如圖 19 所示： 28 圖 19 進(jìn)入音樂網(wǎng)頁 ，進(jìn)入主界 面，系統(tǒng)無法找到匹配序列，則自動(dòng)清空推薦網(wǎng)頁 ，如圖 20： 圖 20 推薦自動(dòng)清空 ，給出提示，說明系統(tǒng)未能找到匹配的推薦網(wǎng)頁，如圖 21所示： 29 圖 21 按鈕推薦提醒 9．在主界面點(diǎn)擊退出，則退出系統(tǒng)，如圖 22 所示： 圖 22退出系統(tǒng) 測試，軟件能夠正常運(yùn)行。最終界面如圖 11，代碼如下： procedure (Sender: TObject)。 23 圖 10 主界面 label，進(jìn)入到網(wǎng)頁頁面。39。 //SEE:=39。+SEE。旅行 39。概要 39。MSN 體育 39。家居 39。MSN39。音樂 39。輿論 39。科技 39。頭條 39。 end。//+39。 //while alli= do // begin while msnint[i]=[alli] do begin i:=i1。+inttostr(SE))。 end。 for i:=0 to do //列舉所有值，保存進(jìn)數(shù)組 begin msnint[i]:=Strtoint(Slist[i])。 :=39。 // SS:=LeftStr(S,Length(S)1)。)。 SS:=39。 msnint:array[0..1000] of integer。 alli:integer。//保存臨時(shí)推薦網(wǎng)頁編號 SS:string。 var F: TextFile。 最終界面如圖 10 顯示 ， 程序 代碼如下： 1） BitBtn 中 退出程序 代碼 ： procedure (Sender: TObject)。添加 BitBtn控件，設(shè)置其 caption 屬性為“退出”，使之為退出按鈕，并導(dǎo)入圖片，使控件更加美觀。 :=False。代碼如下： procedure (Sender: TObject)。 人機(jī)接口 ，首先顯示的為可以自動(dòng)跳轉(zhuǎn)的界面，介紹系統(tǒng)名與系統(tǒng)作者。)。 if temp=0 then begin :=39。 ShowMessage(39。 end。 16:SEE:=39。 14:SEE:=39。 12:SEE:=39。 10:SEE:=39。 8:SEE:=39。 6:SEE:=39。 4:SEE:=39。 2:SEE:=39。 end。 if i=1 then begin temp:=1。//取最后一個(gè)編號為推薦編號 // i:=scount1。 //設(shè)置待分割的字符串 scount:=。//讀取一行字符