函数表

1、数学函数

求绝对值函数abs(x)

定义：function Abs(X): (Same type as parameter);

说明：X可以是整型，也可以是实型；返回值和X的类型一致例子：var

r: Real;

i: Integer;

begin

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

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

end.

取整函数int(x)

定义：function Int(X: Real): Real; 注意：X是实型数，返回值也是实型的；返回的是X的整数部分，也就是说，X被截尾了（而不是四舍五入）例子：

var R: Real;

begin

R := Int(123.567); { 123.0 }

R := Int(-123.456); { -123.0 }

end.

截尾函数trunc(x)

定义：function Trunc(X: Real): Longint; 注意：X是实型表达式. Trunc 返回Longint型的X的整数部分例子：

begin

Writeln(1.4, ' becomes ', Trunc(1.4)); { 1 }

Writeln(1.5, ' becomes ', Trunc(1.5)); { 1 }

Writeln(-1.4, 'becomes ', Trunc(-1.4)); { -1 }

Writeln(-1.5, 'becomes ', Trunc(-1.5)); { -1 }

end.

四舍五入函数round(x)

定义：function Round(X: Real): Longint; 注意：X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint 的表示范围，则出错. 例子：

begin

Writeln(1.4, ' rounds to ', Round(1.4)); { 1 }

Writeln(1.5, ' rounds to ', Round(1.5)); { 2 }

Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 }

Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 }

end.

取小数函数frac(x)

定义：function Frac(X: Real): Real; 注意：X 是实型表达式. 结果返回 X 的小数部分; 也就是说，Frac(X) = X - Int(_X). 例

子：

var

R: Real;

begin

R := Frac(123.456); { 0.456 }

R := Frac(-123.456); { -0.456 }

end.

求平方根函数sqrt(x)和平方函数sqr(x)

定义：

平方根：function Sqrt(X: Real): Real;

注意：X 是实型表达式. 返回实型的X的平方根. 平方：function Sqr(X): (Same type as parameter);

注意：X 是实型或整型表达式.返回值的类型和X的类型一致，大小是X的平方，即X*X.

例子：

begin

Writeln('5 squared is ', Sqr(5)); { 25 }

Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }

2、其他常用函数

function binstr(value:longint;cnt:byte):string;

将value转二进制，取后cnt个字符所成字串

function lowercase(c:char or string):char or string;

upcase 的反函数

procedure setlength(var s:string;len:longint);

将s长度定为len

function power(base,expon:real):real;

base的expon次方

strlcopy 函数将一个字符串中的字符复制到另一个字符串中strlen 函数返回字符串中的字符数

strlfmt 函数格式化一系列的参数，其结果中包含有指向目标缓冲区的指针

strlicomp 函数以最大长度比较两个字符串（不区分大小写）strlower 函数将字符串中的字符转换为小写

strmove 函数将一个字符串中的字符复制到另一个字符串中strnew 函数在堆栈上分配一个字符串

strpas 函数将以null结束的字符串转换为pascal类的字符串strpcopy 函数将pascal类的字符串复制为以null结束的字符

串

strplcopy 函数从pascal类的最大长度字符串复制为以null结束的字符串

strpos 函数返回一个字符串在另一个字符串中首次出现指针strrscan 函数返回字符串中最后出现字符的指针

strscan 函数返回字符串中出现首字符的指针

strtodate 函数将字符串转换为日期格式

strtodatetime 函数将字符串转换为日期/时间格式

strtofloat 函数将给定的字符串转换为浮点数

strtoint 函数将字符串转换为整型

strtointdef 函数将字符串转换为整型或默认值

strtotime 函数将字符串转换为时间格式

strupper 函数将字符串中的字符转换为大写

style 属性类型选择

suce 函数返回后继的参数

swap 函数交换参数的高低地址位

tabs 属性标记每一项的内容

tabindex 属性标记索引

text 属性显示的文本

texttofloat 函数将字符串（以null结束的格式）转换为浮点数

time 函数返回当前的时间

timetostr 函数将时间格式转换为字符串

trim 函数从给定的字符串中删除前导和尾部的空格及控制字符

trimleft 函数从给定的字符串中删除首部的空格及控制字符trimright 函数从给定的字符串中删除尾部的空格及控制字符trunc 函数将实型值截取为整型值

truncate 函数截去当前文件位置后的内容