实验
报告 课程名称: 《Delphi 程序设计》
实验名称:《Delphi 程序设计》课程实验 院 (系) : 专业班级: 姓 学 名: 号: 管理 信管 0701 赵华龙 070440118 聂兴信
指导教师:
2010 年 06 月 07 日
第 1 页
实验项目一
课程名称:《Delphi 程序设计》 实验项目名称:Delphi 语法练习 实验类型:验证性试验 实验地点:计算中心微机实验室 实验类别:本科基础实验 实验学时:16 开出要求:必做 每组人数:1
实验日期:2010 年 04 月 28 日,05 月 12、26 日,6 月 2 日 一、实验目的 练习使用 Delphi 语言编程工具,了解其数据类型、常量、变量、运算符与表达式的设 置及使用,尝试编写出一个简单的 Delphi 小程序。 二、实验步骤 1.打开 Delphi7,默认创建了一个新项目,在开发任何程序前,第一步要做的都是保存,所 以 【文件】|【保存所有】 ,来保存项目中的所有文件。如图 1.2-1 所示
图 1.2-1 2.从保存窗口中我们看到,第一个文件是 pas 文件,也就是单元文件,是保存程序代码的文 件,命名并保存。
第 2 页
3.第二个文件是工程文件,扩展名是 dpr,命名【TextP1】 ,保存。 4.修改 Caption 为【小程序练习】 。 5. 在【Toolbar】上添加两个 label1,label2,edit,button 组件,如下图 1.2-2 所示
图 1.2-2 6.双击计算按钮添加如下代码: var i,j,n:integer; a:array[1..100,1..100] of integer ; begin if edit1.text=''then begin ShowMessage('请在文本框中输入一个正整数'); exit; end; n:=strToInt(edit1.text); for i:=1 to n do begin a[i,i]:=1; a[i,1]:=1; end; for i:=3 to n do
第 3 页
for j:=2 to i-1 do a[i,j]:=a[i-1,j-1]+a[i-1,j]; for i:=1 to n do for j:=1 to i do Canvas.TextOut(120+J*20,25+i*20,IntToStr(a[i,j])); end; 7.调试运行
3.问题提出 问题提出 在输入程序代码时,注意拼写和符号,有时调试出现了问题,查找好久才发现原来是拼写或 者符号格式的问题。 4.试验说明 试验说明 通过这次试验,让我初步认识了 Delphi 程序设计的原理及过程,通过编写调试程序,在其 中出错纠错进而得到相关知识的掌握,并掌握了二维静态数组的应用。
第
4
页
实验项目二
课程名称:《
Delphi 程序设计》 实验项目名称:常用组件的使用 实验类型:验证性试验 实验地点:计算中心微机实验室 实验类别:本科基础实验 实验学时:16 开出要求:必做 每组人数:1
实验日期:2010 年 04 月 28 日,05 月 12、26 日,6 月 2 日 一、实验目的 运用 Delphi 语言编程工具,练习使用
常用组件。仿照课本中的相关例题,进行程序编写, 调试与语法结构的了解及应用。 二、实验步骤 1.基本步骤与实验一相同。设计一个窗口:包含 3 个按钮:浏览、添加、修改,当用户单 击“浏览”按
钮时, “添加”、 “修改”按钮不能使用,当永辉单击“添加”按钮时, “修改” 按钮不能视同,当用户单击“修改”按钮时,其他按钮都可以使用。 2.建立工程(默认工程名为 Project1) 3. 在 窗 体 Form1 上 添 加 控 件 并 设 置 属 性 。 在 进 行 参 数 设 置 时 , 分 别 将 3 个 按 钮 Button1,Button2,的 Caption 属性设置为“确定”“结束” , ,将 label1,label2 ,label3 label4 分别设置为 “Delphi 程序与应用
系统开发”“红” 、 “绿” “蓝” 再添加 label4、 , 。 label5 ,label6,label7 ,label8. 添加 Scrollbar1,Scrollbar2,Scrollbar3 4.建立事件过程。双击“Scrollbar1”按钮,编写红色代码,最后总的实验代码为: var Form1: TForm1; r,g,b:integer; implementation {$R *.dfm} procedure TForm1.ScrollBar1Change(Sender: TObject);
第 5 页
begin r:=scrollbar1.position; label6.caption:=inttostr(scrollbar1.position); label5.color:=rgb(r,g,b); end; procedure TForm1.ScrollBar2Change(Sender: TObject); begin g:=scrollbar1.position; label7.caption:=inttostr(scrol