DELPHI常用函数集及简要范例Word文件下载.docx
- 文档编号:15047565
- 上传时间:2022-10-27
- 格式:DOCX
- 页数:205
- 大小:75.49KB
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,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- DELPHI 常用 函数 简要 范例