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