DELPHI常用函数集及简要范例

_HELP 函数集

●●●●●●●

------------------------------------------------------------------

abs(x) 绝对值

arctan(x) 反正切

cos(x) 传回馀弦函数值

exp(x) e 的 x 次幂

frac(x) 取小数部分

int(x) 取整

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) 求出某类型或变量在内存中占用的字节数

Unit System

函数原型 function Abs(X);

说明 X 为整数 or 实数.

范例

var

r: Real;

i: Integer;

begin

r := Abs(-2.3); { 2.3 }

i := Abs(-157); { 157 }

----------------------------------------------------------

范例

Cos

var R: Extended;

begin

R := Cos(Pi);

end;

----------------------------------------------------------

Sin

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;

----------------------------------------------------------

var

R: Extended;

begin

R := ArcTan(Pi);

end;

范例 var

R: Extended;

S: string;

begin

R := Sin(Pi);

----------------------------------------------------------

Frac 求一个实数的小数部份

----------------------------------------------------------

Unit System

函数原型 function Frac(X: Real): Real;

说明 X 为实数.

范例 var

R: Real;

begin

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;

------------------------------------------

------------------------------------------

Sqr X 的平方

-----------------------------------------

范例

var

S, Temp: string;

begin

Str(Sqr(5.0):3:1, Temp);

S := '5 squared is ' + Temp + #13#10;

Str(Sqrt(2.0):5:4, Temp);

-----------------------------------------

Sqrt X 的平方根

------------------------------------------

Unit System

函数原型 function Sqr(X: Extended): Extended;

函数原型 function Sqrt(X: Extended): Extended;

范例 var

S, Temp: string;

begin

------------------------------------------

Ln 自然对数

------------------------------------------

范例

var

e : real;

S : string;

begin

e := Exp(1.0);

Str(ln(e):3:2, S);

Unit System

函数原型 function Ln(X: Real): Real;

函数原型 function Exp(X: Real): Real;

范例 var

e : real;

S : string;

begin

e := Exp(1.0);

Str(ln(e):3:2, S);

S := 'ln(e) = ' + S;

Date and time routines 日期及时间函数

------------------------------------------

Date 传回目前的日期

Unit SysUtils

函数原型 function Date: TDateTime;

范例 procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption := 'Today is ' + DateToStr(Date);

end;

begin

Label1.Caption := DateTimeToStr(Now);

end;

--------------------------------------------------------

DateTimeToString 日期时间转换成自定型字串

-------------------------------------------------------

Unit SysUtils

函数原型 procedure DateTimeToString(var Result: string; const Format:

string; DateTime: TDateTime);

范例 procedure TForm1.FormCreate(Sender: TObject);

end;

结果 星期五,十二月 20,1996 at 09:20 PM

-----------------------------------------------------------------------------

**** Format 格式叁考下面.FormatDateTime.

--------------------------------------------------------

DateToStr 日期转换成内定型字串.(1996/12/20)

--------------------------------------------------------

Unit SysUtils

函数原型 function DateToStr(Date: TDateTime): string;

范例