delphi7工程应用与项目实践.docVIP

第一章 函数在工程开发中的应用 在代码编辑器和窗体设计器之间转换可以按F12键 全局变量可以在变量声明时就初始化,但同时声明多个全局变量时不可以初始化. ‘’括起来的单个字符是字符类型’’括起来的多个字符是字符串, 如果需要在字符串中放入一个单引号,可以连续并排放两个单引号! 例如: showmessage(你说过很爱我,你还记得吗?); 1.判断输入字符是否为数字的方法： if strtoint(edit1.text)=0 then //如果输入为空或非数字则值为0 ----- 2.－－－－－－－－空－－－－－ if edit1.text=then －－－－ 3.常用的数值函数 abs()函数 frac() 返回变量或常数的小数部分 inttostr() strtoint() round() 将实数四舍五入为整数 floattostr() StrToCurr Chr(x) 返回值为x的字符串 Odd(x) 判断x是否为奇数 Swap(x)交换16位整数的高位和低位 Trunc(x)将实数x截断为整数 Pred(x)返回序数类型的变量x的前一个值 Succ(x) formatfloat()将浮点小数格式化为字符串 4.常用的字符串函数 uppercase() 将所有是Ansi的字母转换为大写的字母 lowercase()-------------------------小 comparestr() 比较两个字符的字母大小，当相等时返回0，否则返回非0整数 trim() 去掉字符串的前后的空白 trimleft() 将字符串前面的（左面的）空白删除 trimright() -------后 右 leftstr(mingrihao,2);从字符串中取出左边的n个字符 结果为mi rightstr(----) length()---- val()将字符串转换为整数值 str()将数值行数据转换称字符串型 pos()查找子字符串在字符串中的位置 5.常用的日期时间函数 需引用dateutils单元 now()返回当前计算机日期和时间 date()－－ time()-- datetostr() strtodate()-- strtotime() timetostr() yearof() 将指定Datetime格式中的年份格式取出 monthof()--- weekof()-- dayof()-- hourof()-- --- Monthsbetween 函数：可以返回两个指定时间变量的月份数，返回值不包含小数 daysbetween 天 hoursbetween 小时 secondsbeterrn formatdatetime 例如：formatdatetime(yyyy-MM-dd,时间变量或常量) startofthemonth取出该月开始的日期 endofthemonth 结束 6.文件处理函数 chdir 更改当前的工作目录 Mkdir创建一个指定的目录 createdir创建一个指定目录的文件 返回值： true表示建立成功 false表示建立失败 getdir获得目前所在的路径名称 removedir 删除指定的空目录 forcedirectories 创建指定目录，该目录可以是多层目录 directoryexists 判断目录是否存在ture表示指定的目录存在，反之不存在 setcurrentdir 设置当前的工作目录 diskfree 检查磁盘驱动器的剩余空间 fileexist 判断指定的文件是否存在 disksize函数 function disksize(drive:byte):int64; 可利用磁盘驱动代号A:=1、B:=2----来检查磁盘驱动器的容量大小。 返回值：=0:磁盘驱动器的容量大小。-1该磁盘驱动器不存在 diskfree 检查剩余空间的函数 用法同上。 在代码编辑器和窗体之间切换可以按F12键. 数据控制组件-- 链接帮助文件的代码 procedure Tmainfrm.M_helpClick(Sender: TObject); begin application.HelpFile :=help\goodsmanage.hlp;//执行已经生成的帮助文件 if (not winhelp(handle,help\goodsmanage.hlp,help_finder,0))then begin showmessage(不能访问帮助文件,请检查帮助文件是否存在!); exit; end; end; 在程序运行时创