📄 delphi 7_0常用函数速查手册 统一教学网.htm
字号:
<P> e := Exp(1.0); // e为real型变量</P>
<P> end;</P>
<H3> 3.Floor</H3>
<P> 功能说明：取得小于等于X的最大的整数。</P>
<P> 参考实例：</P>
<P> Floor(-2.8) = -3</P>
<P> Floor(2.8) = 2</P>
<P> Floor(-1.0) = -1</P>
<H3> 4.Int</H3>
<P> 功能说明：返回参数中的整数部分。</P>
<P> 参考实例：</P>
<P> var </P>
<P> R: Real;</P>
<P> begin</P>
<P> R := Int(123.456); // R等于 123.0</P>
<P> R := Int(-123.456); // R等于 -123.0</P>
<P> end;</P>
<H3> 5.Max(所在单元：Math)</H3>
<P> 功能说明：比较两个数字，并返回最大的一个数字。</P>
<P> 参考实例：</P>
<P> var</P>
<P> k: Integer;</P>
<P> begin</P>
<P> k := Max(10, 20); // k将为20</P>
<P> end;</P>
<H3> 6.Min(所在单元：Math)</H3>
<P> 功能说明：比较两个数字，并返回最小的一个数字。</P>
<P> 参考实例：</P>
<P> var</P>
<P> k: Integer;</P>
<P> begin</P>
<P> k := Min(10, 20); // k将为10</P>
<P> end;</P>
<H3> 7.PI</H3>
<P> 功能说明：精确计算返回圆周率。</P>
<P> 参考实例：</P>
<P> var</P>
<P> x Extended;</P>
<P> begin</P>
<P> x := PI; // x等于3.1415926535897932385</P>
<P> end;</P>
<H3> 8.Round</H3>
<P> 功能说明：对一个实数进行四舍五入。</P>
<P> 参考实例：</P>
<P> var</P>
<P> I, j: Integer;</P>
<P> begin</P>
<P> i := Round(1.25); // i等于1</P>
<P> j := Round(1.62); // j等于2 </P>
<P> end;</P>
<H3> 9.Sqr</H3>
<P> 功能说明：取给定值的平方。</P>
<P> 参考实例：</P>
<P> var</P>
<P> i: Integer;</P>
<P> begin</P>
<P> i := Sqr(3); // i等于9</P>
<P> end;</P>
<H2> 六、日期函数</H2>
<P> 对日期的处理，一般在有日期限制的共享、商业软件中经常使用到。如果你打算编写一款有日期限制的软件，熟悉使用下面的函数即可以实现。</P>
<H3> 1.Date</H3>
<P> 功能说明：返回当前的日期。</P>
<P> 参考实例：</P>
<P> procedure TForm1.Button1Click(Sender: TObject);</P>
<P> begin</P>
<P> Label1.Caption := '今天是：' + DateToStr(Date);</P>
<P> end;</P>
<P> Label显示为：今天是2005年1月1日。</P>
<H3> 2.DateToStr</H3>
<P> 功能说明：将日期型转换为字符型。</P>
<P> 参考实例：</P>
<P> var</P>
<P> S: String;</P>
<P> begin</P>
<P> S := DateToStr(Date);</P>
<P> end;</P>
<H3> 3.DateTimeToStr</H3>
<P> 功能说明：将DateTime型转换为字符型。</P>
<P> 参考实例：</P>
<P> var</P>
<P> S: String;</P>
<P> begin</P>
<P> S := DateTimeToStr(Now);</P>
<P> end;</P>
<H3> 4.DayOfTheMonth(所在单元：DateUtils)</H3>
<P> 功能说明：获取指定日期的日。</P>
<P> 参考实例：</P>
<P> Label1.Caption := IntToStr(DayOfTheMonth(Now));</P>
<P> 假设当前日期为2005年1月2日，那么Label将显示为2。</P>
<H3> 5.DayOfTheWeek(所在单元：DateUtils)</H3>
<P> 功能说明：根据指定日期，获取星期几。</P>
<P> 参考实例：</P>
<P> Label1.Caption := IntToStr(DayOfTheMonth(Now));</P>
<P> 假设当前日期为2005年1月2日，那么Label将显示为7。根据返回的值来判断是周几。7表示星期天，1为星期一，依类类推。</P>
<H3> 6.DayOfTheYear(所在单元：DateUtils)</H3>
<P> 功能说明：根据指定日期，获取天数。</P>
<P> 参考实例：</P>
<P> Label1.Caption := IntToStr(DayOfTheYear(Now));</P>
<P> 假设当前日期为2005年1月2日，那么Label将显示为2。表示是2005年的第2天。</P>
<H3> 7.DayOf(所在单元：DateUtils)</H3>
<P> 功能说明：根据指定的日期，返回日。</P>
<P> 参考实例：</P>
<P> Label1.Caption := IntToStr(DayOf(Date));</P>
<P> 假设当前日期为2005年1月2日，那么Label将显示为2。</P>
<H3> 8.IsLeapYear</H3>
<P> 功能说明：根据指定的年，判断是否为闰年。可使用YearOf函数获取年。</P>
<P> 参考实例：</P>
<P> procedure TForm1.Button1Click(Sender: TObject);</P>
<P> begin</P>
<P> if IsLeapYear(YearOf(Date)) then ShowMessage('是闰年')</P>
<P> else ShowMessage('不是闰年');</P>
<P> end;</P>
<H3> 9.MonthOf(所在单元：DateUtils)</H3>
<P> 功能说明：根据指定的日期，返回月份。</P>
<P> 参考实例：</P>
<P> Label1.Caption := IntToStr(MonthOf(Date));</P>
<P> 假设当前日期为2005年1月2日，那么Label将显示为1。</P>
<H3> 10.Now</H3>
<P> 功能说明：返回当前日期及时间。</P>
<P> 参考实例：</P>
<P> procedure TForm1.Button1Click(Sender: TObject);</P>
<P> begin</P>
<P> Label1.Caption := '现在是：' + DateTimeToStr(Now);</P>
<P> end;</P>
<H3> 11.YearOf(所在单元：DateUtils)</H3>
<P> 功能说明：根据指定的日期，返回年。</P>
<P> 参考实例：</P>
<P> Label1.Caption := IntToStr(YearOf(Date));</P>
<P> 假设当前日期为2005年1月2日，那么Label将显示为2005。</P></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#cccccc height=1><IMG height=1
src="Delphi 7_0常用函数速查手册 统一教学网.files/blank.gif" width=1></TD></TR>
<TR>
<TD bgColor=#f6f6f6 height=30> <IMG height=15
src="Delphi 7_0常用函数速查手册 统一教学网.files/rtg_btn_print.gif" width=16> <A
href="javascript:window.print();">打印本文</A> | <IMG height=12
src="Delphi 7_0常用函数速查手册 统一教学网.files/feedback.gif" width=13><A
href="http://www.tongyi.net/sendmail.asp?id=4265"> 推荐朋友</A> | <IMG
height=16 src="Delphi 7_0常用函数速查手册 统一教学网.files/rtg_btn_save.gif"
width=17 align=absMiddle> <A href="javascript:OnSave();">收藏文章</A> |
<IMG height=12
src="Delphi 7_0常用函数速查手册 统一教学网.files/windows_close.gif" width=12> <A
href="javascript:window.close()">关闭窗口</A></TD></TR></TBODY></TABLE></TD>
<TD width=3> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=766 align=center bgColor=#ffffff
background="Delphi 7_0常用函数速查手册 统一教学网.files/page-bg.gif" border=0>
<TBODY>
<TR>
<TD height=30> </TD>
<TD vAlign=top align=middle rowSpan=2><BR>
<SCRIPT language=JavaScript>showbanner(5,5);</SCRIPT>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=25> <STRONG>相关文章</STRONG></TD></TR>
<TR>
<TD bgColor=#cccccc height=1><IMG height=1
src="Delphi 7_0常用函数速查手册 统一教学网.files/blank.gif" width=1></TD></TR>
<TR>
<TD class=title-list><IMG height=7
src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7> <A
href="http://www.tongyi.net/article/20050615/200506154262.shtml">清除系统临时文件程序增强版<SPAN
class=aritcle-date> (2005年6月15日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20050524/200505244213.shtml">有用的SQL语句<SPAN
class=aritcle-date> (2005年5月24日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20050524/200505244212.shtml">JScript错误代码及解释<SPAN
class=aritcle-date> (2005年5月24日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20050201/200502014190.shtml">如何用UltraEdit编译C#源程序<SPAN
class=aritcle-date> (2005年2月1日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20041009/200410094145.shtml">轻松玩转Java配置的Classpath<SPAN
class=aritcle-date> (2004年10月9日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20040206/200402063892.shtml">家用电脑基本知识<SPAN
class=aritcle-date> (2004年2月6日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20040206/200402063891.shtml">网络技术常用术语汉语对照<SPAN
class=aritcle-date> (2004年2月6日)</SPAN></A><BR><BR><IMG
height=7 src="Delphi 7_0常用函数速查手册 统一教学网.files/about_no.gif" width=7>
<A
href="http://www.tongyi.net/article/20020620/200206203364.shtml">用Delphi编写RM制作工具<SPAN
class=aritcle-date> (2002年6月20日)</SPAN></A><BR><BR></TD></TR></TBODY></TABLE></TD>
<TD width=1 bgColor=#cccccc rowSpan=3></TD>
<TD vAlign=top width=149 bgColor=#f6f6f6 rowSpan=3>
<P></P></TD>
<TD> </TD></TR>
<TR>
<TD width=3></TD>
<TD width=3> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=766 align=center border=0>
<TBODY>
<TR>
<TD><IMG height=21 src="Delphi 7_0常用函数速查手册 统一教学网.files/bottom_gb_3.gif"
width=766></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=766 align=center
background="Delphi 7_0常用函数速查手册 统一教学网.files/bottom_gb_2.gif" border=0>
<TBODY>
<TR>
<TD align=middle colSpan=5>
<P> </P>
<P class=copyrite>关于统一 | <A href="mailto:xiaoma@tongyi.net">联系合作</A> | <A
href="http://3w.tongyi.net/">统一作品</A> | 版权申明 | <A
href="http://3w.tongyi.net/">建站服务</A> | 更多说明<BR>Copyright 2000-2003 Tongyi
All rights reserved. 京ICP备05005608号</P>
<P> </P></TD></TR></TBODY></TABLE>
<SCRIPT src="Delphi 7_0常用函数速查手册 统一教学网.files/urchin.js" type=text/javascript>
</SCRIPT>
<SCRIPT type=text/javascript>
_uacct = "UA-260914-1";
urchinTracker();
</SCRIPT>
<SCRIPT src="Delphi 7_0常用函数速查手册 统一教学网.files/left.js"></SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -