一个人不应该依附在其他人身上，一个人应该首先自力更生。你应该自己能够独立，能够安顿你自己，那你就不会害怕了。你爱你自己的话，别人不能不爱你吧。

Delphi 7.0常用函数速查手册

上一篇 / 下一篇 2008-04-09 10:38:57 / 个人分类：Delphi

G0|F[ie#yR$O0

函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。

m-v9NQh+o0　　在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数组操作函数、文件、磁盘操作函数、内存、指针操作函数、数学运算函数、日期函数。51Testing软件测试网\O[#Sm"Z

Y$N,V q%E!D+w|FH0　　在Delphi中调用函数，一般情况下可以直接使用函数即可，但由于有一些函数未包含在Uses中列出的单元中(默认单元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;)，所以需要我们手动添加单元。比如，MidStr函数就未包含在这些单元中，MidStr所属单元在StrUtils中，因此我们将StrUtils添加Uses中即可。51Testing软件测试网`6Q-m1IW

　　在本手册中，凡是未包含在默认列出的单元中的函数，都标明了其所属的单元，使用时应当注意。

　　一、数据类型转换函数

　　在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。

　　1.FloatToStr

zi}:^Sp&`+~ w0　　功能说明：该函数用于将“浮点型”转换成“字符型”。

k?V w2`M-W0L0　　参考实例：

+t\k%ptd0　　Edit1.Text := FloatToStr(1.981);51Testing软件测试网D/R,W'a9C}

　　2.IntToStr

　　功能说明：该函数用于将“整数型”转换成“字符型”。

　　参考实例：

　　S := IntToStr(10);(注：S为String类型变量。)51Testing软件测试网H;\j CWY6u

　　3.IntToHex

　　功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。

　　参考实例：

　　Edit1.Text := IntToHex('100', 2);

　　执行结果，Edit1.Text等于64。51Testing软件测试网'MW!dJT

3[ Rd-C7[z"f ri)r3h"v5E0　　注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。51Testing软件测试网\n/PfORU2R

　　4.StrToInt

-s%NJm3rd/l;Q.KF0　　功能说明：该函数用于将“字符型”转换成“整数型”。51Testing软件测试网Q([3\0_$J A

　　参考实例：

　　I := StrToInt('100');

　　注意：不能转换如 StrToInt('ab')或StrToInt('好')这样的类型，因为他们并不存在数字型。

　　5.StrToFloat

　　功能说明：该函数用于将“字符型”转换成“浮点型”。51Testing软件测试网u Q4q:B/WA J

　　参考实例：51Testing软件测试网 mPw%YRM

%S$c8cWuzT0　　N := StrToFloat(Edit1.Text);51Testing软件测试网 K(`M]5@;A

　　注意：Edit1.Text中的内容为1.981(凡在Edit控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。

　　二、字符串、数组操作函数

-vL7s3`qK0　　对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。

　　1.Copy

　　功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。51Testing软件测试网1Q,YHR&S*q

(Q |1{gJ7UFce0　　参考实例：

　　var

　　　S: String;

)f!B e6Pg1W%OPT8zW-CC0　　　MyStr: String; // 保存新的字符串51Testing软件测试网!xN9j,x&t

CQ&m+X8CK%Q0　　begin51Testing软件测试网S`UH(d/P3TI

*RY Q.Bt Ko Y0　　　S := 'I Love China!';

{/Rc](I _0　　//下面将获取I Love China中的“Love”字符串。51Testing软件测试网$H%B@YO*k(A

\,P"m$O| SR"mE0　　MyStr := Copy(S, 3, 4);

n{'|i I0　　end;

　　执行结果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。51Testing软件测试网0? f.n"q;Zo

　　2.Concat

B+Sz*iX0　　功能说明：连接两个或多个字符串为一个字符串。

kfI,yHDR0　　参考实例：

　　var51Testing软件测试网&G7M6Vbwz

　　　S1, S2: String;

%FDKD&J8{0　　begin

　　　S1 := Concat('A', 'B'); // 连接两个字符串，S1变量等于AB。

　　　S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符，S2变量等于Borland Delphi 7.0。

"b)n%tt@+d0　　end;51Testing软件测试网 \JxnA^d:M

　　3.Delete

;j G S#oD~:~0　　功能说明：删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串，第二个参数为从何处开始删除，第三个参数为删除的字符个数。

:Y p5fV:S)kFa+L&v0　　参考实例：

　　var51Testing软件测试网*H+I6H;V?R

　　　S: String;

g8}dT+U7os&_"p0　　begin

~8Kf|&h5A0　　　S := 'I Like Reading CPCW.';

　　　// 下面的代码将删除S变量中的“C”字符。51Testing软件测试网D:t%w8e [$CV

　　　Delete(S, 16, 1);51Testing软件测试网 ee Z Ja/Rf

xUUg W'J)}S'k0　　end;51Testing软件测试网:M8{dA?.V@

　　此时S变量则是I Like Reading PCW.(“C”已经不存在了)。

　　4.High

　　功能说明：返回数组下标的最大值。51Testing软件测试网i-NQ&yR-D

.vbE3z@"y0　　参考实例：51Testing软件测试网-E1d^*F*dtv6P

　　var51Testing软件测试网7i"u&}gV g{

　　　arrText: array[0..9] of Char;

/log??"z b8n/[e0　　　i: Integer;

5ez|D L+^7S&O+m0　　begin

　　　i := High(arrText); // i的值则为9

4i-RLqo'u0　　end;

　　5.Insert

　　功能说明：插入一个字符(串)。该函数有三个参数。第一个参数为要插入的字符(串)，第二个参数为被插入字符串(源字符串)，第三个参数为从何处插入。

　　参考实例：

ZF7l}1Her2d_0　　var

　　　S: String;51Testing软件测试网ky0T:?n

6t'cMI I^V.L:w)P0　　begin51Testing软件测试网(r%]{d$]

h uwWV0　　　S := 'Wat is your name?';

　　　// 上面句子中的What单词查一个“h”字符，下面使用Insert函数将h添加进去。51Testing软件测试网7\YQ#L4NK m

　　　Insert('h', S, 2); // 将“h”从第2位处插入。

D7j Eh%X$v t^)]i)s@0　　end;51Testing软件测试网3|b!~N)i*w

　　6.LeftStr(所在单元：StrUtils)

　　功能说明：返回字符串左边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。51Testing软件测试网)vb$@z4K&`

　　参考实例：51Testing软件测试网"L6WZ0\E;V

　　var

I$pd7S.Y jf3i0　　　S, A: String;

xuK0W,s_6zM0　　begin

　　　S := 'MSN Messenger';

nV n+l+q4m!b0　　 A := LeftStr(S, 3); // 从最左边开始，获取左边的三个字符。因此A变量则等于MSN。

:Cx5l}2w*`B0　　end;

　　7.Length

　　功能说明：该函数用于统计指定字符串的长度(即个数)。

　　参考实例：

;]N_bH d7L0　　var51Testing软件测试网BTy6~9^!B

*fe-K&[$H8`Q0　　nLen1, nLen2: Integer; // 用于保存字符串长度

　　begin

z8^ T5S0l:mh0　　　nLen1 := Length('CPCW');51Testing软件测试网0WQ\H2{rw

　　nLen2 := Length('电脑报');

　　end;

w:P6T jy+I0　　执行结果，nLen1等于4，nLen2等于6。由于一个汉字相当于两个字符的长度，所以3个汉字的长度为6。51Testing软件测试网#e?1p4SR

　　8.Low

　　功能说明：返回数组下标的最小值。

　　参考实例：51Testing软件测试网i$I/c\1x;z

(L_.DEQEb0　　var

　　　arrText: array[1..9] of Char;51Testing软件测试网iIq}Z

　　　i: Integer;

0i4` P(R8S V^2eO0　　begin

}:meR6k^(^1_p0　　　i:= High(arrText); // i的值则为151Testing软件测试网3L9ld!rS:Q

　　end;51Testing软件测试网)[&Ub@g

　　9.LowerCase

,WQ`,mR0　　功能说明：将字符(串)中的英文字符转换为小写。

　　参考实例：51Testing软件测试网p%uN8tS~;cd

m"@"B#M)Qr0　　var51Testing软件测试网 K8G'|B+z!l"S

"{YLt\E(c0　　　S, A: String;

Y k Boxdw0　　begin

　　　S := 'ABC';

P8{g"L'ee:d(a0　　　A := UpperCase(S); // 经过UpperCase函数转换后，A则等于abc。

6n,IyZ"S fydi`0　　end;

　　10.MidStr(所在单元：StrUtils)

　　功能说明：返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串，第二个参数为起点，第三个参数为结束点。通过第二、第三个参数则可指定要复制字符串的范围。

7THV2r%Z#Xai"B0　　Copy函数与此函数类似。MidStr主要用于处理含有中文字符的字符串。

:Tx/@5d"|#h0　　参考实例：51Testing软件测试网E7jQy'b"F

　　var

8P&d'_/kFG[3d4Q6z0　　　S: String;

5UEpu/HDf0　　　H: String;51Testing软件测试网_ G8e"gII,x6W

　　begin51Testing软件测试网@jrz+NV+\

sL"~Q!aM-t#|Q0　　　S := MidStr('China', 1, 2); // S变量为Ch

N$FIzV0　　　H := MidStr('电脑报', 1, 1); // H变量为“电”。如果使用Copy函数，则应是H := Copy('电脑报, 1, 2)，否则返回的将不是“电”字。因此在使用操作含有中文的字符串时，最好使用MidStr。51Testing软件测试网xkKG}q!~t

　　end;

　　11.Pos

2c"i L$YL#U_i7P0　　功能说明：查找字符(串)所在位置。该函数有二个参数。第一个参数为要查找的字符(串)，第二个参数为被查找字符(串)。

]#`,D{5X8E9y:o g0　　参考实例：

　　var

　　　nPos: Integer; // 用于保存查找的字符所在位置51Testing软件测试网i[Z'{w6o3sA

Rr I#NGiF#V0　　begin51Testing软件测试网#],^\[#R-~

　　　nPos := Pos('Like', 'I Like Reading!');

　　end;51Testing软件测试网e rQ \,e+@

3GdUSw*J0　　此时nPos等于3。如果没有查找到，则nPos为0。

1U4ghG3_g&v6w g0　　注意：Pos函数在查找时是要区分字符大小的。如果要实现不区分大小，那么需要使用UpperCase或LowerCase函数将两个参数的字符(串)转换为“大写”或“小写”再进行查找。

O [ H@#YZ0　　另外还有一个查找字符(串)的函数----AnsiPos，该函数的使用方法与Pos函数完全一样。当你查找的是汉字时，最好使用AnsiPos函数。

　　12.RightStr(所在单元：StrUtils)

7[!I,mMO0　　功能说明：返回字符串右边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。51Testing软件测试网-M0X9h6f/wAk|

7j,I+@|O N0　　参考实例：

7^LjM[0　　var

　　　S, A: String;51Testing软件测试网zET1Te

　　begin

　　　S := 'MSN Messenger';

　　　A := RightStr(S, 3); // 从最右边开始，获取右边的三个字符。因此A变量则等于ger。

　　end;51Testing软件测试网7^ rOi?K&Y

　　13.SetLength

$uL4jR;iQ t0　　功能说明：设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量，第二个参数为指定的长度，其取值范围在0到255之间。

　　参考实例：

tmyM)r:Ch5^0　　var

　　　S: String;

　　　arrText: array of Char; // 定义一个动态数组

　　begin

&u~f O0~FVS\0　　　SetLength(S, 10); // 当设置后，S变量只能赋值长度为10的字符串。51Testing软件测试网@%n b~ H2rvt

　　　SetLength(arrText, 10); // 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrText: array[0..9] of Char

　　end;

　　14.StrPCopy

　　功能说明：将字符串复制到字符数组中。该函数有两个参数。第一个参数为“目标数组”，第二个参数为“字符串”。

　　参考实例：

5z ^[qB o _u0　　var

　　　arrChar: array[0..255] of Char; // 这里声明了长度为256的Char型数组51Testing软件测试网/w#r6a,mU

　　begin

,T%S4r0lo4W_'D8~0d0　　　StrPCopy(arrChar, 'Come on, baby!');51Testing软件测试网.\3nb;K L1{b

　　end;51Testing软件测试网 sb;{.{+tlF;F

　　15.Trim

.M3n$e&J1eDq6Y&S0　　功能说明：删除字符串左右两边的空格(无论左右两边有多少个空格均被全部删除)。

　　参考实例：51Testing软件测试网-pF8Em-?9j,G

　　var

　　　S: String;

0wmU\0vu9Jf0　　begin

$kdxAUgt0　　　S := ' Delphi 7.0 ';

v,z\ABRS0　　　S := Trim(S);

　　end;51Testing软件测试网 yt'fG8K

　　16.TrimLeft

GL S[ F#o,|t0　　功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。51Testing软件测试网fJ+b1x8B

　　参考实例：

z4B?A+VxO0　　　S := TrimLeft(' Delphi');

　　17.TrimRight

X"lW7uh\(g0　　功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。

TORv*^E5L|(k0　　参考实例：

　　　S := TrimRight('Delphi ');

　　18.UpperCase

d9nd gSMnH0　　功能说明：将字符(串)中的英文字符转换为大写。51Testing软件测试网T%ki [D-wX

　　参考实例：51Testing软件测试网D7a/w'XC~

　　var51Testing软件测试网C^*d.Y-j C |

7}/X3m@3S$UYk%P0　　　S, A: String;51Testing软件测试网 sg8jQ_2X

:lkvk inh0　　begin51Testing软件测试网3ZIZ Jb+A)^)s

　　　S := 'abc';

　　　A := UpperCase(S); // 经过UpperCase函数转换后，A则等于ABC。

3JA"z*zy)I!D0　　end;51Testing软件测试网K:P2M p+C;i

　　三、文件、磁盘操作函数

　　软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。51Testing软件测试网S6wJIzE

　　1.Append

3vtaQ5mB.w0　　功能说明：追加内容到文件中。文件必须要存在。51Testing软件测试网h~f:N#e r"N

　　参考实例：

　　var51Testing软件测试网 Ha Dl ijoI

　　　S: String;51Testing软件测试网1[ c+KDN

　　　F: TextFile;51Testing软件测试网~z Fua!U C

　　begin

　　　S := 'This is a book.';

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

*{%S/V~bdS0　　　Append(F); // 以追加的方式打开文件

　　　Writeln(F, S); // 将S变量中的内容追加到文本尾后。51Testing软件测试网A,lY`q&nt8z

　　　CloseFile(F); // 关闭文件51Testing软件测试网)S0_\SgG2B

@ ^0_0l;Q6R3N0{0　　end;

　　2.AssignFile

　　功能说明：与指定的文件建立连接。51Testing软件测试网 g#Y.W}-E

N%J)r o[\0　　参考实例：

　　var

　　　F: TextFile; // 声明文本文件类型变量51Testing软件测试网LuyR8[

-z#]OR4ZEGy0　　begin

　　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　end;

　　3.ChDir

-~jGzgaYfGiY0　　功能说明：改变当前目录(文件夹)。

jXr[c-v0　　参考实例：

%`!r4myfO0　　var

　　　sDir: String;51Testing软件测试网-ATN H%H0vt

G2y+w;g9t+P0　　begin51Testing软件测试网.as@&^*k3{v

　　　sDir := 'C:\Windows';

　　　ChDir(sDir); // 此时，系统的当前目录则为C:\Windows目录。

　　end;

　　4.CloseFile

t%v\;Bvq?0　　功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。

*a2u6_ J+?0　　参考实例：

　　var

"gZ;IsLiL0　　　S: String;

8{:L[ Su7t0　　　AllText: String;51Testing软件测试网1WIY;|v0v0xlU

　　　F: TextFile;

~.|Q2c{0　　begin

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　　Reset(F); // 打开文件

　　　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾

　　　　Readln(F, S); // 读取一行文本

　　　　AllText := AllText + S;

7nDg6lt^E,b&B0　　　end;51Testing软件测试网Z#MrF?Em

　　　CloseFile(F); // 关闭文件

　　end;

　　5.DeleteFile

$a5~:| W,S!t0　　功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。

0nnc}0STJ1]W0　　参考实例：

GXcNcZ0　　var

}Zv?CR0　　　IsOK: Boolean; // 用于保存删除状态

　　begin51Testing软件测试网n.A9v&_;|0o

!Ps4gzzT0　　　IsOK := DeleteFile('C:\My Documents\Index.html'); // 函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。

4z{/Fr/}o?N0　　　if IsOK then ShowMessage('文件删除成功！')

YA/U.v4Yj0vP'q0　　　else ShowMessage('文件删除失败！');

　　end;51Testing软件测试网ft:BWEJm/}

　　6.DirectoryExists

K#Tx^Cgby+}"S0　　功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。

3v J AHA(b{0　　参考实例：

　　var51Testing软件测试网7O%pi,BK{6G

　　　IsExists: Boolean;

　　begin51Testing软件测试网W&C5O2z[-sj

:RI!x-k$`B0　　　IsExists := DirectoryExists ('C:\Windows');

$| [J)lJ}y0　　　if IsExists then ShowMessage('Windows文件夹存在！')

　　　else ShowMessage('Windows文件夹不存在！');

8H3A+h-n+D1\|0　　end;

　　7.DiskFree

![(Rh%b])?,i+RLe6V0　　功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。51Testing软件测试网qi6~X5ge

8m#@;nZ%T!y3|0　　参考实例：51Testing软件测试网Df+SNJh0S

　　var51Testing软件测试网/sT S,@5E]

MZ!]"J Y2n _,A0　　　FreeSize: Int64;

　　begin

~FA7?!Z ZI%y j0　　　FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。51Testing软件测试网6j8Hv-qf|

　　end;

　　8.DiskSize

ois!vpk0　　功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。

E l8BA3A/i!q7s0　　参考实例：51Testing软件测试网8D8JZSv&kd

　　var

bLN _e/B!ipN0　　　DiskSize: Int64;51Testing软件测试网 S#qY0TO/Z8W

　　begin

　　　DiskSize:= DiskSize(3); // 获取C盘的空间。返回的值是以“字节”为单位的。

　　end;

　　9.EOF

D"@E9p%B&G0　　功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。

　　参考实例：51Testing软件测试网MkB0J"|$xK

]}RpIYhO2R3j0　　var

　　　S: String;

vN zQ5i!M!V\ WvZ0　　　AllText: String;

　　　F: TextFile;51Testing软件测试网~M9g8^e[n

LaO0|ka3]I[0　　begin

cH;c)o5~0　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　　Reset(F); // 打开文件

　　　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾

　　　　Readln(F, S); // 读取一行文本

　　　　AllText := AllText + S;51Testing软件测试网Y @.Hi)T'}

?]n5J,]U7SrMK0　　　end;

4QQ'O.~BOcV'`0　　end;

　　10.Erase

ioTO9|+ZsC*_0　　功能说明：删除文件。51Testing软件测试网;MRm)n#S

　　参考实例：

0uVk)U?M*h|nR0　　var

　　　F: File;51Testing软件测试网T VMDf

O)~Hd;Hhq V:E&g0　　begin

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。51Testing软件测试网,IlY9^ s9X%Vk

　　　Reset(F); // 打开文件

1e"Fg$F+~1UP0　　　CloseFile(F); // 关闭文件51Testing软件测试网;\.jMyi.?N

　　　Erase(F); // 删除文件。在删除文件之前必须先关闭文件。51Testing软件测试网 Xb SV)P c

RtO.MtJo0　　end;

　　11.FileExists

}5fI8@tO m8~(sy0　　功能说明：检测指定的文件否存在。如果存在则返回True，反之则为False。

　　参考实例：51Testing软件测试网V#UH Z0R;{O

dobG4a"l{v0　　var

　　　IsExists: Boolean;51Testing软件测试网\4ceK]+rpc

%mNSy]BwI1O0　　begin

%t8Mn#d*t.k4?g+Gb0　　　IsExists := FileExists('C:\Test.txt');

　　　if IsExists then ShowMessage('该文件存在！')

　　　else ShowMessage('该文件不存在！');51Testing软件测试网'g+]W$P$_k

${}6JEB,XP8G0　　end;

　　12.FileSize

　　功能说明：获取文件大小。返回的结果是字节为单位。

　　参考实例：

　　var

　　　F: file of Byte;51Testing软件测试网8LS)z"@Xw

　　　nSize: Longint;51Testing软件测试网9Kd/F ^:m

s"U5O8oP/o0　　begin51Testing软件测试网X%sw]%T

y8XtI:f%l0　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

1[~dIy'?8Rbj0　　　Reset(F); // 打开文件

　　　nSize := FileSize(F); // 获取文件大小。

　　　CloseFile(F); // 关闭文件

'x IUb7A4x;I{0　　end;

　　13.ForceDirectories

1u;Btf*KO0　　功能说明：创建新的子目录。路径中不存在的目录将一同创建。

　　参考实例：

z}c6E5L0　　ForceDirectories('C:\Flash\MyFolder'); // 如果Flash文件夹本身不存的话，那么将会先创建Flash文件夹，然后再创建MyFolder文件夹。

　　14.MkDir

　　功能说明：创建一个新的子目录(文件夹)。51Testing软件测试网O~4_-g.W}

*~[:iY/C0　　参考实例：

\L|eB-E0d0　　MkDir('C:\MyFolder'); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。51Testing软件测试网_9d0M H[0~Q

　　需要注意的是，如果在本身不存在的目录中创建子目录将会失败。比如C盘根本不存在Flash文件夹，写成MkDir('C:\Flash\MyFolder');这样将不能成功创建MyFolder文件夹。

　　15.Reset

　　功能说明：以只读方式打开文件。

　　参考实例：

　　var

W2}5X:gC4qQ0　　　F: TextFile; // 声明文本文件类型变量

|5\SpRj/f(WD H0　　begin

$?+d"O%D/[,|*ed ^p0p0　　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　　Reset(F); // 打开文件51Testing软件测试网2H C;@~*jz

}1L~n;xz8t0　　end;

　　16.Rewrite

W:VPdmb}\0　　功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。

as(JMa U!v0　　参考实例：

　　var

Hv b,r*z&|L%Ji0　　　F: TextFile; // 声明文本文件类型变量51Testing软件测试网*s|Q.Hd

0]9p0D^l|4_0　　begin

　　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　　Rewrite(F); // 打开文件。如果文件不存在，将会在C盘中创建MyFile.txt文件。如果文件存在，将会覆盖MyFile.txt中的所有内容。

　　end;51Testing软件测试网'w*N.c8yU+c

　　17.Readln

{c4x6qL _zd0　　功能说明：读取一行文本。

　　参考实例：

0jmja0fXA]m0　　var

l)C YF6z/w]?0　　　S: String;

　　　F: TextFile;51Testing软件测试网)PON9Yfk(U

　　begin51Testing软件测试网Yj ]\Rpv

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　　Reset(F); // 打开文件

　　　Readln(F, S); // 读取一行文本到S变量中51Testing软件测试网Cb-n2de Y

8y }~D3n$n,l0　　end;

　　18.Rename

:j1SfM T(g c3b0　　功能说明：更改文件名。

f*w(Lv"i,B3BJ0　　参考实例：

　　var

ct,k)T*wf6`uG ~d0　　　F: File;51Testing软件测试网-b*AI`9T

YW(bK!b+J(s1p0　　begin

(w6cH)r:cV*r\ tAS0　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　　ReName(F, 'C:\NewFile.txt'); // 更名为NewFile.txt51Testing软件测试网bo&P3W#A ed

　　end;

　　19.Writeln

　　功能说明：写入一行文本。

8f\?BuQ\Lbu0　　参考实例：51Testing软件测试网6Xf&@%eOp

　　var

　　　S: String;

eb4Kt&FG!OG0　　　F: TextFile;

　　begin

　　　S := 'This is a book.';

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

"ad[!gF$k(Q#@0　　　Rewrite(F); // 创建新文件

w}O}:f0　　　Writeln(F, S); // 将S变量中的内容写入文本中。51Testing软件测试网3F"K3N9t t;bJ

　　end;

　　四、内存、指针操作函数

.f(_/JJN(P|S^.b0　　在编程中，动态数组为我们处理数据带来了很大的方便。Windows API函数也为增强程序的功能提供了强有力的保障。当我们在使用这些动态数组及API函数时，常常需要动态分配内存空间，这样动态数组才能被我们使用，API函数才能正确的返回结果。因此，这些函数是必不可少的。

　　1.AllocMem

　　功能说明：分配内存空间并自动初始化为零。如果不需要初始化为零，可以使用GetMem代替AllocMem。

　　参考实例：

　　var

　　　Buffer: PChar;51Testing软件测试网\:x9\bTd(h

~bOJ9f#Je0　　begin

　　　Buffer := AllocMem(256); // 分配大小为256个字节的内存空间

　　end;51Testing软件测试网w/JZx{ i)H

　　2.Dispose

}&|1~ z7`]0　　功能说明：释放为指针分配的内存空间。

7U _Yt-P[0　　参考实例：51Testing软件测试网+bpAEFq ZO

　　var

oN5P#|^B\v[0　　　P: Pinteger; // 声明一个Integer(整型)指针

[@vph$Ni0　　begin

　　　New(P);

　　　P^ := 100;

　　　Dispose(P) // 释放内存51Testing软件测试网ie7]#AR4qQ J

　　end;51Testing软件测试网!QY Q9eS1}

　　3.FreeMem

+c1WmV n9h0　　功能说明：释放分配的内存空间。

W/Fb-U+Vq*X0　　参考实例：

　　var51Testing软件测试网4P)~l P2W

MlK}y"\ZX0　　　Buffer: Pchar;51Testing软件测试网K |(["?3i

　　begin

　　　GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。51Testing软件测试网 l!|ypbs,u

4?:Fb`Uw!F+M4F0　　　FreeMem(Buffer); // 释放内存空间

　　end;

　　4.GetMem

;T6F YRfI0　　功能说明：分配内存空间。51Testing软件测试网!iEr0}6`(I;O

　　参考实例：51Testing软件测试网pF"F%sh

:q3@!|.sP2Q8p(R-g0　　var

2Lx D!nEVZ`q0　　　Buffer: PChar;51Testing软件测试网2w"w%I%aB

!a.a/Y,R*xl0　　begin51Testing软件测试网@2t.ruFT-w^

　　　GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。

　　end;

　　5.New

　　功能说明：为指针分配内存空间。

'g? dFO5}v0　　参考实例：

JJ%b_l"[._C4E0　　var51Testing软件测试网9KnA&pL

u ?SJ1j+ZL#f k0　　　P: PInteger; // 声明一个Integer(整型)指针

　　begin51Testing软件测试网`l-D0VJJn

　　　New(P); // 分配内存

　　　P^ := 100; // 赋值

　　end;

　　五、数学运算函数

,s,RqbT Z:a1f+W0　　我们在编写跟数学紧密相关的程序时，数学运算函数将大有用处。比如图像处理软件，就会大量用到这些数学运算函数。

　　默认情况下，Delphi新建的工程里，没有包含大多数的数学运行函数，因此需要在Uses中加入Math单元。

　　1.Abs

　　功能说明：求绝对值。

　　参考实例：

YwT~2i6@I1}H6E8F0　　var

$m*NI%T `0　　　r: Single;

Vm4lT!@mP3pZ&d0　　　i: Integer;

　　begin51Testing软件测试网LuZ^8EQ

f&T FH4S0　　　r := Abs(-2.8); // r等于 2.8

h/O,D{Qd7L"s0　　　i := Abs(-156); // I 等于 156

　　end;51Testing软件测试网&d.{"V/mu^

　　2.Exp

Q|WSKr2i0　　功能说明：Exp返回e的X次幂的值，其中e是一个自然对数基底。

　　参考实例：

@SD^%B0~z1e0　　　e := Exp(1.0); // e为real型变量

By8f\~)~ c$gx0　　end;

　　3.Floor

%w/f'pY;F3x0　　功能说明：取得小于等于X的最大的整数。51Testing软件测试网^6?m+|EO

@wS!x:]f]I0　　参考实例：51Testing软件测试网w,i~$h{

　　Floor(-2.8) = -351Testing软件测试网 Cl7@/_\5]c!F

　　Floor(2.8) = 2

K'Y6D|2u(g/w0　　Floor(-1.0) = -1

　　4.Int

　　功能说明：返回参数中的整数部分。51Testing软件测试网%f:u:u!|4Qn7{

　　参考实例：

　　var

ryE o+`^ M9B0　　　R: Real;51Testing软件测试网Q$jrl6bz

　　begin

　　　R := Int(123.456); // R等于 123.051Testing软件测试网4n(FZ;H0U*\m

　　　R := Int(-123.456); // R等于 -123.0

　　end;

　　5.Max(所在单元：Math)

　　功能说明：比较两个数字，并返回最大的一个数字。51Testing软件测试网Pb1F1f"UI.V

　　参考实例：

6Wkq ?9ENp/c0　　var

x'T jKN&D]O0　　　k: Integer;

　　begin

%BX/Qg+F4Vj0　　　k := Max(10, 20); // k将为20

P#_ Zu:[7hczh0　　end;51Testing软件测试网5A*t/Ze0Y(Z

　　6.Min(所在单元：Math)

　　功能说明：比较两个数字，并返回最小的一个数字。

　　参考实例：

　　var

　　　k: Integer;

4v'I B6p"e6rQY ^0　　begin51Testing软件测试网z%e ei)a-N+q

　　　k := Min(10, 20); // k将为1051Testing软件测试网xX uGTAKp

　　end;51Testing软件测试网&t$_g5_T1ox

　　7.PI

　　功能说明：精确计算返回圆周率。51Testing软件测试网{W r$~E

MQF7g5i4rQeM'V:u+]0　　参考实例：

　　var

}a s/as\M0　　　x Extended;

$elCk/a'P9O|7X0　　begin

　　　x := PI; // x等于3.1415926535897932385

　　end;

　　8.Round

　　功能说明：对一个实数进行四舍五入。

　　参考实例：

f:y(t]*R3a%H.i3{a0　　var

　　　I, j: Integer;

xk;a_KE0　　begin

　　　i := Round(1.25); // i等于1

　　　j := Round(1.62); // j等于251Testing软件测试网S9~)I"so/Lu

-H Qr#d(R0　　end;51Testing软件测试网y(] Y-tQ6@P+e

　　9.Sqr

　　功能说明：取给定值的平方。51Testing软件测试网R;O$tr-[9P

　　参考实例：

　　var51Testing软件测试网1G@5d t8X/}

k;\{W;_VAP)S3[0　　 i: Integer;

　　begin51Testing软件测试网!?DGr*Ppn

dv_p3t/XB#b0　　 i := Sqr(3); // i等于9

8Yhb R&`v)@6b/d0　　end;

　　六、日期函数

　　对日期的处理，一般在有日期限制的共享、商业软件中经常使用到。如果你打算编写一款有日期限制的软件，熟悉使用下面的函数即可以实现。

　　1.Date

7Ur5@Q:a;Rp/Z(^6z0　　功能说明：返回当前的日期。

s[~k},w4K0　　参考实例：51Testing软件测试网(v P,_X(XhE

　　procedure TForm1.Button1Click(Sender: TObject);51Testing软件测试网 Ijb8S[9@1j

#s9~#n2};ecM0　　begin51Testing软件测试网#h#SOdir

0g5J(hz,ISU0　　　Label1.Caption := '今天是：' + DateToStr(Date);51Testing软件测试网%T `"]-i2V\_`

|Xri Ty3d0　　end;51Testing软件测试网9BL"N-Bf

　　Label显示为：今天是2005年1月1日。

　　2.DateToStr

[4[S9s0|'K7xv0　　功能说明：将日期型转换为字符型。

　　参考实例：

;~f'W H8vzq0　　var

　　　S: String;51Testing软件测试网\1mK1us*|N/T

X{$^\}a|0　　begin

　　　S := DateToStr(Date);

　　end;

　　3.DateTimeToStr

　　功能说明：将DateTime型转换为字符型。51Testing软件测试网^.PqZS"K.Z&S

q,Y.u:T!Z&W!Y/v0　　参考实例：

(P:V:u3Q;Q"g6}+GJ0　　var

　　　S: String;51Testing软件测试网RZ0e7nO

H$qb9dv*M0Y]0　　begin

　　　S := DateTimeToStr(Now);51Testing软件测试网ixJO3n v2r

　　end;

　　4.DayOfTheMonth(所在单元：DateUtils)

　　功能说明：获取指定日期的日。

T(r en9J.T+Q0　　参考实例：51Testing软件测试网#r+|&nab*_

　　Label1.Caption := IntToStr(DayOfTheMonth(Now));

$k6A+O*vD6}G@0　　假设当前日期为2005年1月2日，那么Label将显示为2。

　　5.DayOfTheWeek(所在单元：DateUtils)

J8nnY3y0　　功能说明：根据指定日期，获取星期几。

o Zi QI"Uin2i$i0　　参考实例：

0DU4R$A}0^ U0　　Label1.Caption := IntToStr(DayOfTheMonth(Now));

　　假设当前日期为2005年1月2日，那么Label将显示为7。根据返回的值来判断是周几。7表示星期天，1为星期一，依类类推。51Testing软件测试网H-z3{Me'X

　　6.DayOfTheYear(所在单元：DateUtils)

D!@)u5KfD&^7H0　　功能说明：根据指定日期，获取天数。

　　参考实例：51Testing软件测试网-H1yNSJI

　　Label1.Caption := IntToStr(DayOfTheYear(Now));

-~$bk0D%Fz F+B7\s0　　假设当前日期为2005年1月2日，那么Label将显示为2。表示是2005年的第2天。

　　7.DayOf(所在单元：DateUtils)

　　功能说明：根据指定的日期，返回日。51Testing软件测试网*}]U3A(U.|@;J

　　参考实例：

　　Label1.Caption := IntToStr(DayOf(Date));

　　假设当前日期为2005年1月2日，那么Label将显示为2。

　　8.IsLeapYear

P$gyj.}6h!v0　　功能说明：根据指定的年，判断是否为闰年。可使用YearOf函数获取年。

']H vh?*e;X l0　　参考实例：

/R PHO;]UGI0　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

7y4W5Pv^0　　　if IsLeapYear(YearOf(Date)) then ShowMessage('是闰年')

　　　else ShowMessage('不是闰年');

4Fufh0^Z3iZ-Vo X0　　end;51Testing软件测试网6S@ @+N6z@+jJ

　　9.MonthOf(所在单元：DateUtils)

　　功能说明：根据指定的日期，返回月份。51Testing软件测试网0r8mmu*?!a6i

　　参考实例：

　　Label1.Caption := IntToStr(MonthOf(Date));

　　假设当前日期为2005年1月2日，那么Label将显示为1。

　　10.Now

5O|!g(qo_5T0　　功能说明：返回当前日期及时间。

;qE;|,RK~R0　　参考实例：

[8{E5aD-~annZ0　　procedure TForm1.Button1Click(Sender: TObject);

o^"Ef-Jh0s0　　begin

　　　Label1.Caption := '现在是：' + DateTimeToStr(Now);

　　end;

　　11.YearOf(所在单元：DateUtils)

hZA-L6]|P-y:?j0　　功能说明：根据指定的日期，返回年。

tJuO0y{si0　　参考实例：

　　Label1.Caption := IntToStr(YearOf(Date));

?^1Y9`}2M[0　　假设当前日期为2005年1月2日，那么Label将显示为2005。

7T4AGSpPo"]0http://www.tongyi.net/article/20050615/200506154265.shtml

用户菜单

标题搜索

日历

数据统计

访问量: 268485
日志数: 399
图片数: 3
书签数: 4
建立时间: 2007-01-16
更新时间: 2011-04-03

Delphi 7.0常用函数速查手册

一、数据类型转换函数

1.FloatToStr

2.IntToStr

3.IntToHex

4.StrToInt

5.StrToFloat

二、字符串、数组操作函数

1.Copy

2.Concat

3.Delete

4.High

5.Insert

6.LeftStr(所在单元：StrUtils)

7.Length

8.Low

9.LowerCase

10.MidStr(所在单元：StrUtils)

11.Pos

12.RightStr(所在单元：StrUtils)

13.SetLength

14.StrPCopy

15.Trim

16.TrimLeft

17.TrimRight

18.UpperCase

三、文件、磁盘操作函数

1.Append

2.AssignFile

3.ChDir

4.CloseFile

5.DeleteFile

6.DirectoryExists

7.DiskFree

8.DiskSize

9.EOF

10.Erase

11.FileExists

12.FileSize

13.ForceDirectories

14.MkDir

15.Reset

16.Rewrite

17.Readln

18.Rename

19.Writeln

四、内存、指针操作函数

1.AllocMem

2.Dispose

3.FreeMem

4.GetMem

5.New

五、数学运算函数

1.Abs

2.Exp

3.Floor

4.Int

5.Max(所在单元：Math)

6.Min(所在单元：Math)

7.PI

8.Round

9.Sqr

六、日期函数

1.Date

2.DateToStr

3.DateTimeToStr

4.DayOfTheMonth(所在单元：DateUtils)

5.DayOfTheWeek(所在单元：DateUtils)

6.DayOfTheYear(所在单元：DateUtils)

7.DayOf(所在单元：DateUtils)

8.IsLeapYear

9.MonthOf(所在单元：DateUtils)

10.Now

11.YearOf(所在单元：DateUtils)

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

　　一、数据类型转换函数

　　1.FloatToStr

　　2.IntToStr

　　3.IntToHex

　　4.StrToInt

　　5.StrToFloat

　　二、字符串、数组操作函数

　　1.Copy

　　2.Concat

　　3.Delete

　　4.High

　　5.Insert

　　6.LeftStr(所在单元：StrUtils)

　　7.Length

　　8.Low

　　9.LowerCase

　　10.MidStr(所在单元：StrUtils)

　　11.Pos

　　12.RightStr(所在单元：StrUtils)

　　13.SetLength

　　14.StrPCopy

　　15.Trim

　　16.TrimLeft

　　17.TrimRight

　　18.UpperCase

　　三、文件、磁盘操作函数

　　1.Append

　　2.AssignFile

　　3.ChDir

　　4.CloseFile

　　5.DeleteFile

　　6.DirectoryExists

　　7.DiskFree

　　8.DiskSize

　　9.EOF

　　10.Erase

　　11.FileExists

　　12.FileSize

　　13.ForceDirectories

　　14.MkDir

　　15.Reset

　　16.Rewrite

　　17.Readln

　　18.Rename

　　19.Writeln

　　四、内存、指针操作函数

　　1.AllocMem

　　2.Dispose

　　3.FreeMem

　　4.GetMem

　　5.New

　　五、数学运算函数

　　1.Abs

　　2.Exp

　　3.Floor

　　4.Int

　　5.Max(所在单元：Math)

　　6.Min(所在单元：Math)

　　7.PI

　　8.Round

　　9.Sqr

　　六、日期函数

　　1.Date

　　2.DateToStr

　　3.DateTimeToStr

　　4.DayOfTheMonth(所在单元：DateUtils)

　　5.DayOfTheWeek(所在单元：DateUtils)

　　6.DayOfTheYear(所在单元：DateUtils)

　　7.DayOf(所在单元：DateUtils)

　　8.IsLeapYear

　　9.MonthOf(所在单元：DateUtils)

　　10.Now

　　11.YearOf(所在单元：DateUtils)