DELPHI常用函数集及简要范例Word文件下载.docx
《DELPHI常用函数集及简要范例Word文件下载.docx》由会员分享，可在线阅读，更多相关《DELPHI常用函数集及简要范例Word文件下载.docx（205页珍藏版）》请在冰豆网上搜索。
,succ（pred（x））=x
ord（x）求x在字符集中的序号,如ord（'
A'
）=65
chr（x）chr（65）='
round（x）四舍五入
trunc（x）trunc（4.8）=4,trunc（'
-3.6'
）=-3
upcase（x）upcase（'
a'
hi（I）hi（$2A30）=$2A
lo（I）lo（$2A30）=$30
random（n）产生[0,n）间的随机整数
sizeof（name）求出某类型或变量在内存中占用的字节数
swap（num）swap（$3621）=$2136
==========
Arithmeticroutines数学运算
Abs绝对值
UnitSystem
函数原型functionAbs（X）;
说明X为整数or实数.
范例
var
r:
Real;
i:
Integer;
begin
r:
=Abs（-2.3）;
{2.3}
i:
=Abs（-157）;
{157}
end;
ArcTan三角函数
范例
Cos
varR:
Extended;
R:
=Cos（Pi）;
Sin
R:
S:
string;
=Sin（Pi）;
Str（R:
5:
3,S）;
Canvas.TextOut（10,10,'
TheSinofPiis'
+S）;
函数原型functionArcTan（X:
Extended）:
函数原型functionCos（X:
函数原型functionSin（X:
说明X为径度.
Tan（x）===Sin（x）/Cos（x）
ArcSin（x）=ArcTan（x/sqrt（1-sqr（x）））
ArcCos（x）=ArcTan（sqrt（1-sqr（x））/x）
左边这三个不是函数,而是右边运算求得.
=ArcTan（Pi）;
范例var
begin
end;
Frac求一个实数的小数部份
函数原型functionFrac（X:
Real）:
说明X为实数.
=Frac（123.456）;
{0.456}
=Frac（-123.456）;
{-0.456}
Int求一个实数的整数部份
函数原型functionInt（X:
范例var
=Int（123.456）;
{123.0}
=Int（-123.456）;
{-123.0}
Pi就是数学的Pi
函数原型functionPi:
说明它是一个函数,但我们就把它当作是预设的变数来用吧!
Pi=3.
SqrX的平方
S,Temp:
Str（Sqr（5.0）:
3:
1,Temp）;
S:
='
5squaredis'
+Temp+#13#10;
Str（Sqrt（2.0）:
4,Temp）;
=S+'
Thesquarerootof2is'
+Temp;
MessageDlg（S,mtInformation,[mbOk],0）;
SqrtX的平方根
函数原型functionSqr（X:
函数原型functionSqrt（X:
Ln自然对数
e:
real;
=Exp（1.0）;
Str（ln（e）:
2,S）;
e='
+FloatToStr（e）+'
;
ln（e）='
+S;
Canvas.TextOut（10,10,S）;
Exp指数
函数原型functionLn（X:
函数原型functionExp（X:
ln（e）='
Dateandtimeroutines日期及时间函数
Date传回目前的日期
UnitSysUtils
函数原型functionDate:
TDateTime;
范例procedureTForm1.Button1Click（Sender:
TObject）;
Label1.Caption:
Todayis'
+DateToStr（Date）;
DateTimeToStr日期时间转换成内定型字串（1996/12/2009:
12:
20PM）
函数原型functionDateTimeToStr（DateTime:
TDateTime）:
=DateTimeToStr（Now）;
DateTimeToString日期时间转换成自定型字串
函数原型procedureDateTimeToString（varResult:
constFormat:
DateTime:
TDateTime）;
范例procedureTForm1.FormCreate（Sender:
var
s:
string;
DateTimeToString（s,'
dddd,mmmmd,yyyy"
at"
hh:
mm
AM/PM'
Now）;
=s;
结果星期五,十二月20,1996at09:
20PM
****Format格式叁考下面.FormatDateTime.
DateToStr日期转换成内定型字串.（1996/12/20）
函数原型functionDateToStr（Date:
procedureTForm1.Button1Click（Sender:
#Date,DateToStrExample
DayOfWeek求叁数日期是星期几.
函数原型functionDayOfWeek（Date:
说明传回值是一整数,1~7.
星期日为1.
ADate:
days:
array[1..7]ofstring;
days[1]:
Sunday'
days[2]:
Monday'
days[3]:
Tuesday'
days[4]:
Wednesday'
days[5]:
Thursday'
days[6]:
Friday'
days[7]:
Saturday'
ADate:
=StrToDate（Edit1.Text）;
ShowMessage（Edit1.Text+'
isa'
+days[DayOfWeek（ADate）];
#StrToDate,DayOfWeekExample
DecodeDate将TDateTime型态的日期变数，转为Word型态.
Present:
Year,Month,Day,Hour,Min,Sec,
升级会员 