Delphi 程序
设计实验一
实验目的: 实验目的:掌握 Object Pascal 基本语句的使用 实验内容:给出一个长方体的长、宽和高,计算该长方体的体积。 实验内容: 实验步骤: 实验步骤: 1. 启动 delphi,新建一个 VCL Forms Applilcation 应用程序; 2. 在显示的窗口中放置几个标签(Label) 、输入框(Edit) 、按钮(button)如图 1, 修改其对应的 caption 属性成图 2 显示; 将窗口 form1 的 caption 属性修改成 “长 方体体积计算” ;
图1 图2 3. 将四个输入框 Edit1~Edit4 的 name 属性分别修改成 Edit_Long、Edit_Width、 Edit_Height 和 Edit_Volume; 两个按钮 name 属性分别修改成 Btn_Cale、 Btn_Exit; 4. 双击计算按钮,在出现的界面的 begin…end 之间写入计算长方体体积的代码: Edit_Volume.Text:=inttostr(strtoint(Edit_Long.Text)*strtoint(Edit_width.Text)*strtoin t(Edit_height.Text)); 5. 双击关闭按钮,在出现的界面的 begin…end 之间写入计算长方体体积的代码: Close; 6. 保存项目,将单元文件名保存成 U_Test1,项目名称保存为 Test1; 7. 按 F9 或点击 run 菜单里的 run 或点击工具栏里的 图标运行程序,
系统会检 测语法错误,才屏幕下方查看出错信息,按要求修改代码,直至可运行为止。 8. 运行好
程序之后,在长宽高中分别输入相应数字,按计算按钮计算体积,看结 果与用笔算的结果比较是否正确;点击关闭按钮则退出程序; 9. 完善程序,将体积输入框(Edit_Volume)的 ReadOnly 属性修改成 True,不允许 在此输入框输入数字。 10.思考一下:如何禁止长宽高输入框中输入非数字的字符?如何限制在长宽高输 入框中没有输入数值时计算按钮不可用?