[理学]DELPHI实验指导书.docVIP

《面向对象程序设计》 实验指导书 李安 编著 集美大学信息工程学院通信教研室 实验一 Delphi集成开发环境 Const iname=user; //定义用户名 ipassword=00000; //定义口令 ●双击“确定”按钮，在代码编辑区中输入该按钮的OnClick事件代码： procedure TDengLuForm. ButtonlClick(Sender:TObject); begin if (Name. Text=iname)and(Password. Text=ipassword) then ShowMessage ( 欢迎使用学生管理系统 ) else MessageDlg ( 用户名或密码不正确，请重新输入!, mtError, [mbOk],0); end; ●双击“退出”按钮，在编辑区输入该按钮的OnClick事件代码： procedure TDengLuForm. Bitton2Click(Sender: TObject); begin close; end; ⑤保存文件，单击“保存”工具按钮或选择单元文件名为udenglu.pas，工程文件为pdenglu.dpr。按F9或选择Run→Run菜单项，运行程序，查看结果。 实验 常用组件的应用⑴ ㈠目的和要求 掌握TForm组件、TLabel组件、TEdit组件、TMemo组件、TButton组件的基本功能、主要属性和使用方法 ㈡实验准备 ⒈了解TForm组件、TLabel组件、TEdit组件、TMemo组件、TButton组件的基本功能、主要属性和使用方法。 ⒉熟悉Object Pascal 语言。 ㈢实验内容 ⒈ 编写程序实现如下功能：输入圆的半径，计算圆的周长和面积。 图2-1 界面设计 图2-2 运行结果 ⒉ 用Memo、Button和Edit组件实现以下的界面和功能 图2-3 界面设计 实验 常用组件的应用⑵ ㈠目的和要求 掌握TForm组件、TLabel组件、TEdit组件、TMemo组件、TButton组件、TListBox组件、TComboBox组件和TRadioButton组件的基本功能、主要属性和使用方法。 ㈡实验准备 ⒈TForm组件、TLabel组件、TEdit组件、TMemo组件、TButton组件、TListBox组件、TComboBox组件和TRadioButton组件的基本功能、主要属性和使用方法。 ⒉熟悉Object Pascal 语言。 ㈢实验内容 ⒈利用Memo组件的简单文本编辑器。 功能：本实验中，将一个文本文件读入到Memo组件中编辑，并将修改后的文本保存回文件中；可以将Edit组件中的文本添加到Memo中；在程序关闭时如果用户修改了文本而没有保存，程序会提示用户是否保存文件并根据用户的反馈做出相应的动作。 实验步骤与提示： ⑴在D盘根目录下建立一个文本文件Sample.txt，在其中输入一些文本。 ⑵在窗体上放置一个Memo组件、一个Edit组件、四个Button组件。组件的属性设置如下表所示。 ⑶编写“打开文件”用TStrings类的LoadFromFile方法 ⑷编写“保存文件”用TStrings类的SaveToFile方法，并且在保存文件之后将Memo组件的Modified属性设为False。 ⑸在窗体关闭时要检查Memo中的文本是否改变，如果改变则提示用户保存文本，这可以通过检查Memo的Modified属性实现。 ⑹)编写窗体的OnCloseQuery事件过程代码，在窗体关闭的时候检查Memo中的文本是否改变，如果改变则提示用户保存文本。以下是参考程序片段。 var mrRet: integer; //保存MessageDlg对话框的返回值 begin if mmText.Modified then // Memo中文本改动时，Modified自动设为True mrRet :=Messagedlg(文件被改动，是否存盘 , mtInformation, [ mbYes, mbNo,mbCancel ] ,0 ); //弹出提示对话框 if mrRet = mrYes then //户单击了yes按钮时 mmText .Lines. SaveToFile (FileName) else i