实验四：application对象的应用。
实验名称：application对象的应用。
实验学时：2学时。
实验类型：设计型。
背景知识：application对象和screen对象。
实验目的：1.掌握application对象属性方法。
2.掌握screen对象属性方法。
实验内容：1.编写一个程序，取得应用程序的标题，设置主窗体标题、取得应用程序的文件名和路径。
2. 编写一个程序 ，在窗体的状态栏上显示鼠标所指组件的提示信息。
3.使用资源文件，用于修改图标、光标、加载**等。
4. 编写封面程序。
5.设置程序的启动权限。
实验原理：application对象
在项目文件中常使用的方法。
form1);
processmessages方法。
messagebox方法。
screen对象。
实验步骤：（注意：实验内容中提到的程序均要写，写的时候写主体**，dephi自动生成的**不要写了。体现一下实验步骤）
1、取得应用程序标题：
设置主窗体标题：
取得应用程序的文件名：
取得应用程序所在路径：
3、修改图标：'myicon');
修改光标："mycursor");
加载**："mypicture");
4、在项目文件中编写：
splashfrm:=
sleep(2000);
5、设置应用程序的启动权限。
if inputquery('登录口令','输入口令',password) then
beginif password='screen' then
beginend;
elsemessagedlg('口令不正确，程序终止',mterror,[mbok],0);
end;实验五：文本编辑器的设计。
实验学时：4学时。
实验类型：设计型。
背景知识：窗体设计和标准对话框窗体。
实验目的：掌握窗体设计的设计方法。
掌握标准对话框窗体的使用。
掌握richedit组件的使用。
实验内容：编写一个sdi程序，实现编辑器的基本功能，包括新建、保存，打开，格式，复制，粘贴，查找，替换等功能。
实验步骤：（注意：写主体**，delphi自动生成的**可以不写，这几个功能都要体现出来。）
新建：保存：if then
打开：格式：
复制：粘贴；
剪切：查找：在onfind()事件中编写 var
foundat:longint;
startpos,toend:integer;
beginif <>0 then
startpos:=
elsestartpos:=0;
toend:=length(
foundat:=
if foundat<>-1 then
beginsetfocus;
end;end;
替换：replacedialog1的onfind()方法
varfoundat:longint;
startpos,toend:integer;
beginif <>0 then
startpos:=
elsestartpos:=0;
toend:=length(
foundat:=
if foundat<>-1 then
beginsetfocus;
end;end;
onreplace()方法：
vartemp:integer;
begintemp:=found;
end;
高级程序设计实验大纲
华中科技大学文华学院。一 课程名称 高级程序设计。二 课程编码 三 学时与学分 课程总学分 32 总学分 2 实验学时 12四 先修课程 无。五 课程性质 必修。六 适用学科专业 计算机相关专业。七 实验课的任务 性质与目的。1.引导学生系统学习c 语言基础知识 2.掌握c 程序的开发方法 3.培养...
高级语言程序设计实验九
实验项目编号 2174000409 实验项目名称 结构体程序设计。学时 2每组人数 1 实验目的 掌握结构体变量的定义及使用，综合运用结构体和数组进行程序设计，并能运用结构体数组解决实际应用问题。实验要求 对下面的实验题设计其算法并上机调试。1 有一学生情况如下表所示。编制一个c程序，用冒泡法对该学...
高级语言程序设计实验四
学时 2 每组人数 1 实验目的 掌握一维数组与二维数组的定义及其元素的引用方法 深刻体会数组与循环的关系 掌握利用一维数组和二维数组实现一些常用算法的编程技巧 进一步掌握动态调试的基本技能。实验要求 给下面的实验题设计算法并上机调试。1 将矩阵 4 5 中值 行中所有数的和 为最大的那一行元素与首...