delphi课程设计文本编辑器

前 言delphi课程设计是计算机科学与技术专业学生的专业实践必修课程，是学习delphi应用程序课程非常重要的综合性实践教学环节。课程设计是检验学生是否掌握相关专业课程知识的重要手段，同时课程设计应充分体现“教师指导下的以学生为中心”的教学模式，以学生为认知主体，充分调动学生的积极性和能动性，重视学生实践应用能力和自学能力的培养。1 、设计的目的与要求（1）设计的目的： 课程设计是计算机科学与技术专业学生的专业实践必修课程，是学习delphi应用程序设计课程非常重要的综合性实践教学环节。课程设计是检验学生是否掌握相关专业课程知识的重要手段，同时课程设计应充分体现“教师指导下的以学生为中心”的教学模式，以学生为认知主体，充分调动学生的积极性和能动性，重视学生实践应用能力和自学能力的培养。通过设计文本编辑器并实现其功能来熟练掌握delphi语言基础，初步掌握软件开发中系统分析、系统设计、系统实现和系统测试等阶段的基本方法与技术，培养学生的创新意识，提高实践应用能力，为培养应用型人才服务。（2）做文本编辑器的要求：菜单要求： 要求有新建 、保存、另存为、退出 、拷贝、剪切、粘贴、帮助等功能。要求其操作简单、界面清晰、灵活、实用、方便。要求程序须经调试，并添加异常处理和代码注释，同时在功能实现后，要将代码进行优化。最好能响应键盘和鼠标事件，同时可添加快捷键。 2 、设计进度及完成情况日 期内 容2011年5月22日准备和审题、接受任务，开发环境配置等2011年2月2324日查找相关资料，系统调查，需求分析2011年5月25日系统建模2011年5月26日概要设计2011年5月2728日详细设计2011年5月2931日编码测试2011年6月01日部署、配置、运行2011年6月0203日撰写课程设计报告2011年6月04日课程设计总结2011年6月05日正式提交课程设计报告和系统源程序目 录前 言I1 、设计的目的与要求II2 、设计进度及完成情况III目 录I1引言12设计任务与目的13. 需求分析24 系统设计34.1 总体设计34.1.1 系统功能34.2详细设计35 系统实现65.1 系统主要用例的实现65.1.1运行用例运行效果65.1.2 打开文档用例运行效果75.1.3 关于用例运行效果86 结束语9致谢10参考文献11附录A：系统源程序121 引言计算机的普及发展，软件行业在社会占着举足轻重的作用。现今市场中存在的文本编辑器已不是少数几种，而且功能已相对齐全，但我们作为未来从事软件行业的专业人士，借着软件发展的周期，研究这个课题，在学习过程掌握文本编辑器以及JAVA的相关知识很有必要，既随科技发展的前沿，又方便了我们的生活。事实上，因为暂时知识的限制性，我们只能做一个比较简单的文本编辑器，通过一学期对delphi的了解和课程设计培训，以及对文本编辑器主要功能的详细研究，我们将其功能转化为了程序代码。主要分为编辑区、输入区等，此文本编辑器含有保存、 退出、查找、拷贝、剪切、粘贴等简要功能，其操作简单、界面清晰、灵活、实用、方便等优点，适用于简便的存档及撰写文稿。2 设计任务与目的1）设计一个简单的文本编辑器,可以实现以下功能： 1：文件的新建，打开，保存和另存； 2：对文件的编辑，如全选，复制，剪切，粘贴； 3：执行完操作后，能够顺利关闭记事本。4；能对文本进行格式修改5：可以改变文本的对齐方式6：有简单的搜索定位功能 2）通过这次设计，可以帮助学生：1：提高对delphi语言设计的掌握能力； 2：理论联系实际，进一步提高学生的软件开发技术； 3：培养学生分析、解决问题的能力。3. 需求分析 在科学技术飞速发展的今天，计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。应用DELPHI技术实现学生学习实践是可行而必要的工作 。在社会生活中我们经常需要用电脑编写一些文档来保存文件，本课程设计是运用了delphi软件开发工具开发的应用软件。适合编写记录文件。 训练学生灵活应用所学Delphi语言的基本知识，熟练的完成问题分析、算法设计、编写程序，求解出指定的问题；训练用系统的观点和软件开发一般规范进行软件开发，巩固、深化学生的理论知识，提高编程水平，并在此过程中培养严谨的科学态度和良好的工作作风； 提高综合运用所学的理论知识和方法独立分析和解决问题的能力运行要求： 由于本程序是运用DELPHI语言编成的，所以首先必须在电脑上安装DELPHI开发软件，并在delphi7.0中进行编程。 4 系统设计4.1 总体设计4.1.1 系统功能1：文件的新建，打开，保存和另存；2：对文件的编辑，如全选，复制，剪切，粘贴；3：执行完操作后，能够顺利关闭记事本。4；能对文本进行格式修改5：可以改变文本的对齐方式6：有简单的搜索定位功能4.2 详细设计 文本编辑器各功能的实现代码如下1.新建procedure TForm1.FileNewExecute(Sender: TObject);/新建部分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;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_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; 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.HelpFile:=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_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 系统实现5.1 系统主要用例的实现5.1.1运行用例运行效果 图5-1 运行用例运行效果图5.1.2 打开文档用例运行效果图5-2 打开文件用例运行效果图5.1.3 关于用例运行效果居中对齐如下加粗、倾斜、下划线效果 图5-3 用例演示运行效果6 结束语作为计算机科学与技术的学生，我觉得能做类似的课程设计是十分有意义，而且是十分必要的。在已度过的时间里我们大多数接触的是专业基础课。我们在课堂上掌握的仅仅是专业基础课的理论面，如何去锻炼我们的实践面？如何把我们所学到的专业基础理论知识用到实践中去呢？我想做类似的大作业就为我们提供了良好的实践平台。在做本次课程设计的过程中，我感触最深的当数查阅大量的书籍了。为了让自己的设计更加完善，更加符合软件工程标准，一次次翻阅各种参考资料是十分必要的，同时也是必不可少的。我们是在作设计，但我们不是艺术家。他们可以抛开实际，尽情在幻想的世界里翱翔，我们是软件设计师，一切都要有据可依.有理可寻，不切实际的构想永远只能是构想，永远无法升级为设计。作为一名专业学生掌握一门或几门程序设计语言是必不可少的，由于本次课程设计要求用delphi进行开发，在这过程中我对各种的开发环境进行了探索，这使我对delphi的集成开发环境有了更深刻的理解虽然去从未独立应用过它们，但是由于水平有限，难免会有错误，还望老师批评指正。致谢非常感谢老师对我们的指导，让我们能学会这门课程并且成功地完成了本次课程设计，还有设计过程中给予我们帮助的同学、朋友，有了大家的共同努力才有今天的成果。参考文献附录A：系统源程序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) 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: TRichEditBold; RichEditItalic1: TRichEditItalic; RichEditUnderline1: TRichEditUnderline; RichEditStrikeOut1: TRichEditStrikeOut; RichEditBullets1: TRichEditBullets; RichEditAlignLeft1: TRichEditAlignLeft; RichEditAlignRight1: TRichEditAlignRight; RichEditAlignCenter1: TRichEditAlignCenter; HelpContents1: THelpContents; FileOpen1: TFileOpen; FileSaveAs1: TFileSaveAs; FileExit1: TFileExit; SearchFind1: TSearchFind; SearchFindNext1: TSearchFindNext; SearchReplace1: TSearchReplace; SearchFindFirst1: TSearchFindFirst; ActionMainMenuBar1: TActionMainMenuBar; ActionToolBar1: TActionToolBar; StatusBar1: TStatusBar; ToolBar1: TToolBar; FontSize: TEdit; UpDown1: TUpDown; ToolButton1: TToolButton; boldbutton: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton3: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: 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); procedure 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 declarations 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.FileName);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: TObject);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;end;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;procedure TForm1.FormCreate(Sender: TObject);begin Application.HelpFile:=ExtractFilePath(Application.ExeName)+TextEditor.hlp;end;procedure TForm1.FileSaveAs2Execute(Sender: TObject);begin RichEdit1.Lines.SaveToFile(FileName);end;procedure TForm1.FontNameChange(Sender: TObject);begin if FontName.Text=ANSI_CHARSET then RichEdit1.Font.Charset:=ANSI_CHARSET; if FontName.Text=ARABIC_CHARSET then RichEdit1.Font.Charset:=ARABIC_CHARSET; if FontName.Text=BALTIC_CHARSET then RichEdit1.Font.Charset:=BALTIC_CHARSET;end;procedure TForm1.FontSizeChange(Sender: TObject);begin RichEdit1.Font.Size:= StrToInt(FontSize.Text);end;end.