delphi課程設計文本編輯器

1、 前 言delphi課程設計是計算機科學與技術專業(yè)學生的專業(yè)實踐必修課程，是學習delphi應用程序課程非常重要的綜合性實踐教學環(huán)節(jié)。課程設計是檢驗學生是否掌握相關專業(yè)課程知識的重要手段，同時課程設計應充分體現(xiàn)“教師指導下的以學生為中心”的教學模式，以學生為認知主體，充分調(diào)動學生的積極性和能動性，重視學生實踐應用能力和自學能力的培養(yǎng)。1 、設計的目的與要求（1）設計的目的： 課程設計是計算機科學與技術專業(yè)學生的專業(yè)實踐必修課程，是學習delphi應用程序設計課程非常重要的綜合性實踐教學環(huán)節(jié)。課程設計是檢驗學生是否掌握相關專業(yè)課程知識的重要手段，同時課程設計應充分體現(xiàn)“教師指導下的以學生為中心”

2、的教學模式，以學生為認知主體，充分調(diào)動學生的積極性和能動性，重視學生實踐應用能力和自學能力的培養(yǎng)。通過設計文本編輯器并實現(xiàn)其功能來熟練掌握delphi語言基礎，初步掌握軟件開發(fā)中系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實現(xiàn)和系統(tǒng)測試等階段的基本方法與技術，培養(yǎng)學生的創(chuàng)新意識，提高實踐應用能力，為培養(yǎng)應用型人才服務。（2）做文本編輯器的要求：菜單要求： 要求有新建 、保存、另存為、退出 、拷貝、剪切、粘貼、幫助等功能。要求其操作簡單、界面清晰、靈活、實用、方便。要求程序須經(jīng)調(diào)試，并添加異常處理和代碼注釋，同時在功能實現(xiàn)后，要將代碼進行優(yōu)化。最好能響應鍵盤和鼠標事件，同時可添加快捷鍵。 2 、設計進度及完成情況日

3、 期內(nèi) 容2011年5月22日準備和審題、接受任務，開發(fā)環(huán)境配置等2011年2月2324日查找相關資料，系統(tǒng)調(diào)查，需求分析2011年5月25日系統(tǒng)建模2011年5月26日概要設計2011年5月2728日詳細設計2011年5月2931日編碼測試2011年6月01日部署、配置、運行2011年6月0203日撰寫課程設計報告2011年6月04日課程設計總結2011年6月05日正式提交課程設計報告和系統(tǒng)源程序目 錄前 言i1 、設計的目的與要求ii2 、設計進度及完成情況iii目 錄i1引言12設計任務與目的13. 需求分析24 系統(tǒng)設計34.1 總體設計34.1.1 系統(tǒng)功能34.2詳細設計35 系統(tǒng)

4、實現(xiàn)65.1 系統(tǒng)主要用例的實現(xiàn)65.1.1運行用例運行效果65.1.2 打開文檔用例運行效果75.1.3 關于用例運行效果86 結束語9致謝10參考文獻11附錄a：系統(tǒng)源程序121 引言計算機的普及發(fā)展，軟件行業(yè)在社會占著舉足輕重的作用?，F(xiàn)今市場中存在的文本編輯器已不是少數(shù)幾種，而且功能已相對齊全，但我們作為未來從事軟件行業(yè)的專業(yè)人士，借著軟件發(fā)展的周期，研究這個課題，在學習過程掌握文本編輯器以及java的相關知識很有必要，既隨科技發(fā)展的前沿，又方便了我們的生活。事實上，因為暫時知識的限制性，我們只能做一個比較簡單的文本編輯器，通過一學期對delphi的了解和課程設計培訓，以及對文本編輯器主

5、要功能的詳細研究，我們將其功能轉(zhuǎn)化為了程序代碼。主要分為編輯區(qū)、輸入?yún)^(qū)等，此文本編輯器含有保存、 退出、查找、拷貝、剪切、粘貼等簡要功能，其操作簡單、界面清晰、靈活、實用、方便等優(yōu)點，適用于簡便的存檔及撰寫文稿。2 設計任務與目的1）設計一個簡單的文本編輯器,可以實現(xiàn)以下功能： 1：文件的新建，打開，保存和另存； 2：對文件的編輯，如全選，復制，剪切，粘貼； 3：執(zhí)行完操作后，能夠順利關閉記事本。4；能對文本進行格式修改5：可以改變文本的對齊方式6：有簡單的搜索定位功能 2）通過這次設計，可以幫助學生：1：提高對delphi語言設計的掌握能力； 2：理論聯(lián)系實際，進一步提高學生的軟件開發(fā)技術；

6、 3：培養(yǎng)學生分析、解決問題的能力。3. 需求分析 在科學技術飛速發(fā)展的今天，計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。應用delphi技術實現(xiàn)學生學習實踐是可行而必要的工作 。在社會生活中我們經(jīng)常需要用電腦編寫一些文檔來保存文件，本課程設計是運用了delphi軟件開發(fā)工具開發(fā)的應用軟件。適合編寫記錄文件。 訓練學生靈活應用所學delphi語言的基本知識，熟練的完成問題分析、算法設計、編寫程序，求解出指定的問題；訓練用系統(tǒng)的觀點和軟件開發(fā)一般規(guī)范進行軟件開發(fā)，鞏固、深化學生的理論知識，提高編程水平，并在此過程中培養(yǎng)嚴謹?shù)目茖W態(tài)度和良好

7、的工作作風； 提高綜合運用所學的理論知識和方法獨立分析和解決問題的能力運行要求： 由于本程序是運用delphi語言編成的，所以首先必須在電腦上安裝delphi開發(fā)軟件，并在delphi7.0中進行編程。 4 系統(tǒng)設計4.1 總體設計4.1.1 系統(tǒng)功能1：文件的新建，打開，保存和另存；2：對文件的編輯，如全選，復制，剪切，粘貼；3：執(zhí)行完操作后，能夠順利關閉記事本。4；能對文本進行格式修改5：可以改變文本的對齊方式6：有簡單的搜索定位功能4.2 詳細設計 文本編輯器各功能的實現(xiàn)代碼如下1.新建procedure tform1.filenewexecute(sender: tobject);/新

8、建部分beginrichedit1.clear;filename:=未命名文件.txt;statusbar1.panels0.text:=filename;end;2.打開procedure tform1.fileopen1accept(sender: tobject);/打開部分beginrichedit1.lines.loadfromfile(fileopen1.dialog.filename);filename:=fileopen1.dialog.filename;form1.caption:=filename;statusbar1.panels0.text:=filename;end;

9、3.保存procedure tform1.filesaveexecute(sender: tobject);/保存beginif filename=未命名文件.txtthen filesaveas1.execute else richedit1.lines.savetofile(filename);end;4.幫助 contents菜單procedure tform1.helpcontents1execute(sender: tobject);/幫助const help_tab=15; contents_active=-3;begin application.helpcommand(help_

10、tab,contents_active);end;5.幫助indes菜單procedure tform1.helpindexexecute(sender: tobject);const help_tab=15; index_active=-2;begin application.helpcommand(help_tab,index_active);end;6.關于部分procedure tform1.helpaboutexecute(sender: tobject);beginwith taboutbox.create(self) do try showmodal; finally free;

11、 end;end;7.顯示字體procedure tform1.showhint(sender: tobject);begin if length(application.hint) 0 then begin statusbar1.simplepanel := true; statusbar1.simpletext := application.hint; end else statusbar1.simpletext := 歡迎使用本軟件！; end;8.窗體建立procedure tform1.formcreate(sender: tobject);begin application.hel

12、pfile:=extractfilepath(application.exename)+texteditor.hlp;end;另存為procedure tform1.filesaveas2execute(sender: tobject);/另存為begin richedit1.lines.savetofile(filename);end;9.字體名稱procedure tform1.fontnamechange(sender: tobject);/字體名稱begin if fontname.text=ansi_charset then richedit1.font.charset:=ansi_

13、charset; if fontname.text=arabic_charset then richedit1.font.charset:=arabic_charset; if fontname.text=baltic_charset then richedit1.font.charset:=baltic_charset;end;10.更改字體大小procedure tform1.fontsizechange(sender: tobject); /字體大小改變begin richedit1.font.size:= strtoint(fontsize.text);end;end.5 系統(tǒng)實現(xiàn)5.

14、1 系統(tǒng)主要用例的實現(xiàn)5.1.1運行用例運行效果 圖5-1 運行用例運行效果圖5.1.2 打開文檔用例運行效果圖5-2 打開文件用例運行效果圖5.1.3 關于用例運行效果居中對齊如下加粗、傾斜、下劃線效果 圖5-3 用例演示運行效果6 結束語作為計算機科學與技術的學生，我覺得能做類似的課程設計是十分有意義，而且是十分必要的。在已度過的時間里我們大多數(shù)接觸的是專業(yè)基礎課。我們在課堂上掌握的僅僅是專業(yè)基礎課的理論面，如何去鍛煉我們的實踐面？如何把我們所學到的專業(yè)基礎理論知識用到實踐中去呢？我想做類似的大作業(yè)就為我們提供了良好的實踐平臺。在做本次課程設計的過程中，我感觸最深的當數(shù)查閱大量的書籍了。為

15、了讓自己的設計更加完善，更加符合軟件工程標準，一次次翻閱各種參考資料是十分必要的，同時也是必不可少的。我們是在作設計，但我們不是藝術家。他們可以拋開實際，盡情在幻想的世界里翱翔，我們是軟件設計師，一切都要有據(jù)可依.有理可尋，不切實際的構想永遠只能是構想，永遠無法升級為設計。作為一名專業(yè)學生掌握一門或幾門程序設計語言是必不可少的，由于本次課程設計要求用delphi進行開發(fā)，在這過程中我對各種的開發(fā)環(huán)境進行了探索，這使我對delphi的集成開發(fā)環(huán)境有了更深刻的理解雖然去從未獨立應用過它們，但是由于水平有限，難免會有錯誤，還望老師批評指正。致謝非常感謝老師對我們的指導，讓我們能學會這門課程并且成功地

16、完成了本次課程設計，還有設計過程中給予我們幫助的同學、朋友，有了大家的共同努力才有今天的成果。參考文獻附錄a：系統(tǒng)源程序unit unit1;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, actnctrls, toolwin, actnman, actnmenus, stdactns, extactns, actnlist, imglist, stdctrls, comctrls,about;type tform1 = class(tform)

17、actionmanager1: tactionmanager; imagelist1: timagelist; filenew: taction; filesave: taction; helpindex: taction; helpabout: taction; editcut1: teditcut; editcopy1: teditcopy; editpaste1: teditpaste; editselectall1: teditselectall; editundo1: teditundo; editdelete1: teditdelete; richeditbold1: triche

18、ditbold; richedititalic1: trichedititalic; richeditunderline1: tricheditunderline; richeditstrikeout1: tricheditstrikeout; richeditbullets1: tricheditbullets; richeditalignleft1: tricheditalignleft; richeditalignright1: tricheditalignright; richeditaligncenter1: tricheditaligncenter; helpcontents1:

19、thelpcontents; fileopen1: tfileopen; filesaveas1: tfilesaveas; fileexit1: tfileexit; searchfind1: tsearchfind; searchfindnext1: tsearchfindnext; searchreplace1: tsearchreplace; searchfindfirst1: tsearchfindfirst; actionmainmenubar1: tactionmainmenubar; actiontoolbar1: tactiontoolbar; statusbar1: tst

20、atusbar; toolbar1: ttoolbar; fontsize: tedit; updown1: tupdown; toolbutton1: ttoolbutton; boldbutton: ttoolbutton; toolbutton4: ttoolbutton; toolbutton5: ttoolbutton; toolbutton3: ttoolbutton; toolbutton6: ttoolbutton; toolbutton7: ttoolbutton; toolbutton8: ttoolbutton; toolbutton9: ttoolbutton; too

21、lbutton10: ttoolbutton; richedit1: trichedit; fontname: tcomboboxex; procedure filenewexecute(sender: tobject); procedure fileopen1accept(sender: tobject); procedure filesaveexecute(sender: tobject); procedure helpcontents1execute(sender: tobject); procedure helpindexexecute(sender: tobject); proced

22、ure helpaboutexecute(sender: tobject); procedure formcreate(sender: tobject); procedure showhint(sender: tobject); procedure filesaveas2execute(sender: tobject); procedure fontnamechange(sender: tobject); procedure fontsizechange(sender: tobject); private private declarations public public declarati

23、ons filename:string; end;var form1: tform1;implementation$r *.dfmprocedure tform1.filenewexecute(sender: tobject);beginrichedit1.clear;filename:=未命名文件.txt;statusbar1.panels0.text:=filename;end;procedure tform1.fileopen1accept(sender: tobject);beginrichedit1.lines.loadfromfile(fileopen1.dialog.filena

24、me);filename:=fileopen1.dialog.filename;form1.caption:=filename;statusbar1.panels0.text:=filename;end;procedure tform1.filesaveexecute(sender: tobject);beginif filename=未命名文件.txtthen filesaveas1.execute else richedit1.lines.savetofile(filename);end;procedure tform1.helpcontents1execute(sender: tobje

25、ct);const help_tab=15; contents_active=-3;begin application.helpcommand(help_tab,contents_active);end;procedure tform1.helpindexexecute(sender: tobject);const help_tab=15; index_active=-2;begin application.helpcommand(help_tab,index_active);end;procedure tform1.helpaboutexecute(sender: tobject);beginwith taboutbox.create(self) do try showmodal; finally free; end;