DELPHI常用函数集及简要范例.doc

_HELP函数集 ●●●●●●● abs(x) 绝对值 arctan(x) 反正切 cos(x) 传回馀弦函数值 exp(x) e的x次幂 frac(x) 取小数部分 int(x) 取整 ln(x) 自然对数 sin(x) 传回正弦函数值 sqr(x) x*x sqrt(x) 平方根 其它 pred(x) pred(D)=C, pred(true)=1; succ(x) succ(Y)=Z, succ(pred(x))=x ord(x) 求x在字符集中的序号,如ord(A)=65 chr(x) chr(65)=A round(x) 四舍五入 trunc(x) trunc(4.8)=4,trunc(-3.6)=-3 upcase(x) upcase(a)=A hi(I) hi($2A30)=$2A lo(I) lo($2A30)=$30 random(n) 产生[0,n)间的随机整数 sizeof(name) 求出某类型或变量在内存中占用的字节数 swap(num) swap($3621)=$2136 ================================ Arithmetic routines 数学运算 ================================ Abs 绝对值 Unit System 函数原型 function Abs(X); 说明 X为整数or实数. 范例 var r: Real; i: Integer; begin r := Abs(-2.3); { 2.3 } i := Abs(-157); { 157 } end; ArcTan 三角函数 范例 Cos var R: Extended; begin R := Cos(Pi); end; Sin 范例 var R: Extended; S: string; begin R := Sin(Pi); Str(R:5:3, S); Canvas.TextOut(10, 10, The Sin of Pi is + S); end; Unit System 函数原型 function ArcTan(X: Extended): Extended; 函数原型 function Cos(X: Extended): Extended; 函数原型 function Sin(X: Extended): Extended; 说明 X为径度. Tan(x) === Sin(x) / Cos(x) ArcSin(x) = ArcTan (x/sqrt (1-sqr (x))) ArcCos(x) = ArcTan (sqrt (1-sqr (x)) /x) 左边这三个不是函数,而是右边运算求得. 范例 var R: Extended; begin R := ArcTan(Pi); end; 范例 var R: Extended; S: string; begin R := Sin(Pi); Str(R:5:3, S); Canvas.TextOut(10, 10, The Sin of Pi is + S); end; Frac 求一个实数的小数部份 Unit System 函数原型 function Frac(X: Real): Real; 说明 X为实数. 范例 var R: Real; begin R := Frac(123.456); { 0.456 } R := Frac(-123.456); { -0.456 } end; Int 求一个实数的整数部份 Unit System 函数原型 function Int(X: Real): Real; 说明 X为实数. 范例 var R: Real; begin R := Int(123.456); { 123.0 } R := Int(-123.456); { -123.0 } end; Pi 就是数学的Pi Unit System 函数原型 function Pi: Extended; 说明 它是一个函数,但我们就把它当作是预设的变数来用吧! Pi= 3.1415926535897932385 Sqr X的平方 范例 var S, Temp: string; begin Str(Sqr(5