空间管理您的位置: 51Testing软件测试网 » 老婆婆 » 日志

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

Delphi 7.0常用函数速查手册

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

查看( 480 ) / 评论( 0 ) / 评分( 0 / 0 )

51Testing软件测试网2}^h)K6iDnd

_ W{Z9T%zR0

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

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

%U&S-h r|0SX0　　在Delphi中调用函数，一般情况下可以直接使用函数即可，但由于有一些函数未包含在Uses中列出的单元中(默认单元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;)，所以需要我们手动添加单元。比如，MidStr函数就未包含在这些单元中，MidStr所属单元在StrUtils中，因此我们将StrUtils添加Uses中即可。

%@9`9`!eR!a'i!f0　　在本手册中，凡是未包含在默认列出的单元中的函数，都标明了其所属的单元，使用时应当注意。

　　一、数据类型转换函数

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

　　1.FloatToStr

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

CI2b l _$YA0　　参考实例：

h#`'e3gbW`/}i7H+p0　　Edit1.Text := FloatToStr(1.981);51Testing软件测试网rXAFy}5v

　　2.IntToStr

　　功能说明：该函数用于将“整数型”转换成“字符型”。51Testing软件测试网ui9Js(KZV

.r$`4cS-]W.j*~A0　　参考实例：51Testing软件测试网8z'}s9Ah"g

　　S := IntToStr(10);(注：S为String类型变量。)

　　3.IntToHex

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

Gs%BRi-dL0　　参考实例：

p;`^L `,g0　　Edit1.Text := IntToHex('100', 2);

　　执行结果，Edit1.Text等于64。

`S6e`}2E0　　注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。51Testing软件测试网 l9xv.H N

　　4.StrToInt

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

4[ r8x/C/^~/G0　　参考实例：51Testing软件测试网;y'V8Wq Gw1r

　　I := StrToInt('100');

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

　　5.StrToFloat

?8}#|p-X0　　功能说明：该函数用于将“字符型”转换成“浮点型”。

7n2DPSWHiu/s.}0　　参考实例：

　　N := StrToFloat(Edit1.Text);

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

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

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

　　1.Copy

　　功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。

　　参考实例：51Testing软件测试网4}N o5G0[.P

　　var51Testing软件测试网QjL(WiR

　　　S: String;

　　　MyStr: String; // 保存新的字符串51Testing软件测试网l(FFA$F1[

wue)D*|1DoP0　　begin

　　　S := 'I Love China!';

?V `/p1jy%c0　　//下面将获取I Love China中的“Love”字符串。

　　MyStr := Copy(S, 3, 4);

　　end;51Testing软件测试网?3u#D8KAr*G

3Q;[?7|]$Du0　　执行结果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。

　　2.Concat

Mdc+r[/v0　　功能说明：连接两个或多个字符串为一个字符串。

;s|Wy$O{'~0　　参考实例：51Testing软件测试网]~6bHj:~!l&T

Fg{0` B#Un0　　var51Testing软件测试网CL8@&Wql0Y

　　　S1, S2: String;

}6O?.y)v6T.w0　　begin

,~'] [zl5tV0　　　S1 := Concat('A', 'B'); // 连接两个字符串，S1变量等于AB。51Testing软件测试网} kQ gL-k

/U3y x,C?0　　　S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符，S2变量等于Borland Delphi 7.0。51Testing软件测试网)d*HJfSm%m

　　end;

　　3.Delete

　　功能说明：删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串，第二个参数为从何处开始删除，第三个参数为删除的字符个数。51Testing软件测试网fB"^e0a9}uR

　　参考实例：

　　var

　　　S: String;

!W5yx.QAD0　　begin51Testing软件测试网dnh.R8e^ ~

　　　S := 'I Like Reading CPCW.';51Testing软件测试网 mW{_:d}

　　　// 下面的代码将删除S变量中的“C”字符。

　　　Delete(S, 16, 1);51Testing软件测试网m%Bn"M xcB

+C-Z9x5O$f#Ad^0　　end;51Testing软件测试网*K0~ Xw1X

　　此时S变量则是I Like Reading PCW.(“C”已经不存在了)。51Testing软件测试网 t1^:jae

　　4.High

　　功能说明：返回数组下标的最大值。51Testing软件测试网Bo0I}'{4v:V#O

　　参考实例：

　　var

RWg+N4t/I0　　　arrText: array[0..9] of Char;

　　　i: Integer;

0`A~1qod*n*L"KI[x0　　begin

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

　　end;51Testing软件测试网yU^0iX*kW

　　5.Insert

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

&W B%r NDb Ce2K-k0　　参考实例：

D J;OI&s@X0　　var

　　　S: String;

　　begin

　　　S := 'Wat is your name?';

AO@dGB0　　　// 上面句子中的What单词查一个“h”字符，下面使用Insert函数将h添加进去。

-}\ b4f^]0　　　Insert('h', S, 2); // 将“h”从第2位处插入。

;Z/j5V5vcl0　　end;

　　6.LeftStr(所在单元：StrUtils)

,f7k#E%~5n;j#u#qB0　　功能说明：返回字符串左边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。

　　参考实例：

　　var51Testing软件测试网RS/^_s!Q;\

　　　S, A: String;51Testing软件测试网LyC\F.vV:i

　　begin

　　　S := 'MSN Messenger';

)@T Bl*A Y,R0　　 A := LeftStr(S, 3); // 从最左边开始，获取左边的三个字符。因此A变量则等于MSN。

　　end;

　　7.Length

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

　　参考实例：

　　var

+{v~$n.A:Mm0　　nLen1, nLen2: Integer; // 用于保存字符串长度51Testing软件测试网0^E?/T|1`3{Y

　　begin

　　　nLen1 := Length('CPCW');

　　nLen2 := Length('电脑报');51Testing软件测试网 Ef| N|#?

L'} A4ZFa;~ W e0　　end;

/fz| ^*tXcXA o/c0　　执行结果，nLen1等于4，nLen2等于6。由于一个汉字相当于两个字符的长度，所以3个汉字的长度为6。

　　8.Low

　　功能说明：返回数组下标的最小值。51Testing软件测试网!aR${2UO [

　　参考实例：51Testing软件测试网 gQ$ya|rj

8A-|$` i/Ww0　　var

Agd)~&?~#|g0　　　arrText: array[1..9] of Char;

　　　i: Integer;

1qqe9N!t.k0　　begin

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

"iWYdS_)B0　　end;

　　9.LowerCase

Xl-Zf$R.N#{^gg0　　功能说明：将字符(串)中的英文字符转换为小写。

l a&Ko(L!Z k3R#}0　　参考实例：51Testing软件测试网!YlDCf+fL\

　　var

vi_U*];Qb r0　　　S, A: String;51Testing软件测试网7e(|4`U n!m

　　begin

　　　S := 'ABC';51Testing软件测试网m~1RMCNk`

　　　A := UpperCase(S); // 经过UpperCase函数转换后，A则等于abc。51Testing软件测试网v6sW'KB!}C

　　end;

　　10.MidStr(所在单元：StrUtils)

　　功能说明：返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串，第二个参数为起点，第三个参数为结束点。通过第二、第三个参数则可指定要复制字符串的范围。51Testing软件测试网)bVUHTh'|

　　Copy函数与此函数类似。MidStr主要用于处理含有中文字符的字符串。

　　参考实例：

c:zh1}7l7m0　　var51Testing软件测试网,wI`q~

　　　S: String;51Testing软件测试网V3](L|O.De

A]^7u~%? }v0　　　H: String;51Testing软件测试网2eIX6_ T4b

6~*gi'j$j/z0　　begin51Testing软件测试网$[M3M:e {h'Z

`;h(U r7A0　　　S := MidStr('China', 1, 2); // S变量为Ch

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

　　end;51Testing软件测试网y3yP;v#W&~.e

　　11.Pos

+Vz.NLZ {0　　功能说明：查找字符(串)所在位置。该函数有二个参数。第一个参数为要查找的字符(串)，第二个参数为被查找字符(串)。51Testing软件测试网 l"Did~1{1y

&tjmIa*I*pB&Ob0　　参考实例：51Testing软件测试网,t&Yin(?\

e+O!`M9vTD0　　var51Testing软件测试网,N#eu_*wyc

　　　nPos: Integer; // 用于保存查找的字符所在位置

　　begin51Testing软件测试网8n2hr3~h]]

I1eu"`f"gj-V0　　　nPos := Pos('Like', 'I Like Reading!');

||&Zc7l4gx0　　end;

9[z*\(HZZVc#F0　　此时nPos等于3。如果没有查找到，则nPos为0。51Testing软件测试网c m0A`n5\%o

tXko'f6b8Zi0H0　　注意：Pos函数在查找时是要区分字符大小的。如果要实现不区分大小，那么需要使用UpperCase或LowerCase函数将两个参数的字符(串)转换为“大写”或“小写”再进行查找。51Testing软件测试网1N'_$O2A(Ow

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

　　12.RightStr(所在单元：StrUtils)

"BP-ia| kg_0　　功能说明：返回字符串右边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。51Testing软件测试网pf"jLWA

　　参考实例：

　　var51Testing软件测试网;eha}omRU

-})K4y%F0rj-q0　　　S, A: String;

　　begin

7`#h5~ G7Eo/`+F0　　　S := 'MSN Messenger';

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

　　end;51Testing软件测试网e/] L?#e2r

　　13.SetLength

8^}/ZN$N|j+RD*@!j0　　功能说明：设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量，第二个参数为指定的长度，其取值范围在0到255之间。

　　参考实例：

　　var

!q'C+`6j1\eQ"d9MV0　　　S: String;51Testing软件测试网ii w#A}1B

h&q[.W3{c2C@;[[0　　　arrText: array of Char; // 定义一个动态数组

　　begin

Kp5z!{8\DV/K0　　　SetLength(S, 10); // 当设置后，S变量只能赋值长度为10的字符串。

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

　　end;

　　14.StrPCopy

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

G4?*[_n6WyP j8IR0　　参考实例：

　　var

　　　arrChar: array[0..255] of Char; // 这里声明了长度为256的Char型数组

　　begin51Testing软件测试网5g1djX:y4Lj1r

　　　StrPCopy(arrChar, 'Come on, baby!');

Qk1JV bHzmnSU0　　end;51Testing软件测试网]Pv3t)N4cPfK

　　15.Trim

5Da[JN3n|0　　功能说明：删除字符串左右两边的空格(无论左右两边有多少个空格均被全部删除)。

i)} m'mk1A%T^0　　参考实例：

-r:Wv o+i AWH'i'O0　　var

　　　S: String;51Testing软件测试网PD:a"{$u$^Y

　　begin

　　　S := ' Delphi 7.0 ';

M4Sx;h,A5j(@`0DQl0　　　S := Trim(S);

　　end;

　　16.TrimLeft

　　功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。51Testing软件测试网)XwU0hS

MMn8@k{StMSc0　　参考实例：

a9Gp7_^0　　　S := TrimLeft(' Delphi');

　　17.TrimRight

$@bWl~&kS1i0　　功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。51Testing软件测试网IlL\SA

Djc.H|0　　参考实例：

? T@6IgpFj0　　　S := TrimRight('Delphi ');51Testing软件测试网Z$V&| [vV$p

　　18.UpperCase

-LVwl1P v0　　功能说明：将字符(串)中的英文字符转换为大写。

}\D!ks0　　参考实例：51Testing软件测试网4c4ys yF,~o

N*~_Bu7^zz0　　var51Testing软件测试网0L mm(BCD[L

Xv p6KcNA5w0　　　S, A: String;

　　begin

RM&IKpp;Gi0　　　S := 'abc';

(M3k3aqM,~n-Ni4wXQw0　　　A := UpperCase(S); // 经过UpperCase函数转换后，A则等于ABC。51Testing软件测试网A Qj4o3A

LaZ/O7X|_0　　end;

　　三、文件、磁盘操作函数

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

　　1.Append

　　功能说明：追加内容到文件中。文件必须要存在。

　　参考实例：

　　var51Testing软件测试网#X'd];TD Z}

　　　S: String;

　　　F: TextFile;51Testing软件测试网oVl{IIA^8n

B-y6g0|@6F2oAZ0　　begin

　　　S := 'This is a book.';

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

i4ub(iPs0　　　Append(F); // 以追加的方式打开文件

Ul0bLh0　　　Writeln(F, S); // 将S变量中的内容追加到文本尾后。

　　　CloseFile(F); // 关闭文件

$hV`WvOJw0　　end;

　　2.AssignFile

　　功能说明：与指定的文件建立连接。

,}0b,O{v)|~(p0　　参考实例：51Testing软件测试网(d1pe#c9P6Q

　　var

BP,r'^nY&IP6\E T0　　　F: TextFile; // 声明文本文件类型变量

　　begin

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

c'gL2I'iPC&i0　　end;

　　3.ChDir

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

Sp5q V3C9b.SU0　　参考实例：51Testing软件测试网ph*K.I-G6`S

q+i,FYJP)C&O ?0　　var51Testing软件测试网GiC7K8uD*D

　　　sDir: String;51Testing软件测试网n)AFF4?9q$J@

　　begin

(V"f(Y-X3D~D5V,f9]0　　　sDir := 'C:\Windows';

"C|%d4}-G-^l0　　　ChDir(sDir); // 此时，系统的当前目录则为C:\Windows目录。

　　end;

　　4.CloseFile

　　功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。

　　参考实例：

.b[6vJu6f0　　var

,z oJ#[-_0　　　S: String;

~|RH1a uD k$`0　　　AllText: String;

2NG)h W4Ng0　　　F: TextFile;51Testing软件测试网H8n+L8e5JR O]

　　begin

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。51Testing软件测试网0}~ pj;Yr ?

　　　Reset(F); // 打开文件

2zi0q D:U)w n0　　　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾

{m1s+|xXs s r]+~0　　　　Readln(F, S); // 读取一行文本51Testing软件测试网[!AQg$@

　　　　AllText := AllText + S;

　　　end;

　　　CloseFile(F); // 关闭文件

　　end;51Testing软件测试网7t9SG|\/_w

　　5.DeleteFile

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

#c kV#R q)B|}(~0　　参考实例：

z%E?}k2o0　　var51Testing软件测试网@6s#[,^-ml

|H,]'{u$@x0　　　IsOK: Boolean; // 用于保存删除状态

　　begin51Testing软件测试网N _vl2U5z

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

　　　if IsOK then ShowMessage('文件删除成功！')

　　　else ShowMessage('文件删除失败！');

　　end;

　　6.DirectoryExists

3x%SRx2x0　　功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。

S@9a;OU} G2pl3^G0　　参考实例：51Testing软件测试网A\ tj%?&s}3w

+J NCA1vJ/E0　　var51Testing软件测试网e\AL^q2x

　　　IsExists: Boolean;51Testing软件测试网d-P]E&p*p\

　　begin

$J e(p"tsg#XaVV0　　　IsExists := DirectoryExists ('C:\Windows');

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

S`$J#JXB(w/[0　　　else ShowMessage('Windows文件夹不存在！');

Cr|+l.nsj0　　end;

　　7.DiskFree

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

,AmO N)Q\2Hj kx0　　参考实例：

]2\T:jVMt*]0　　var

7D&^EF:YN0　　　FreeSize: Int64;51Testing软件测试网`/_5t:dy6[

(VlCS$W"Nn)H;n nw0　　begin

+|(b#l\ ojBud0　　　FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。

　　end;

　　8.DiskSize

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

fd4n{5\:f0　　参考实例：

　　var51Testing软件测试网$d2FyBT

　　　DiskSize: Int64;51Testing软件测试网3g9@ h!z)H D

oRgfL/V0　　begin51Testing软件测试网n f`7c6@ }

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

~:|,II b&`0　　end;51Testing软件测试网)f3Aclh

　　9.EOF

&VG,_\0po/L _e0　　功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。

8X`:Dz7b3v^.r0　　参考实例：51Testing软件测试网9wE"h Wk0}

/x(G-Xwc(l:C0　　var51Testing软件测试网Q[J2?*v c}

　　　S: String;

_ P ] S7o-?0　　　AllText: String;

　　　F: TextFile;

)gy$G5|O3a.t+qAc#P0　　begin51Testing软件测试网IB`me

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

'L7j7^D W)n&U\5O)H4s0　　　Reset(F); // 打开文件

?.X#tp&k R0　　　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾

　　　　Readln(F, S); // 读取一行文本51Testing软件测试网"b o5Z(X*M:cB

　　　　AllText := AllText + S;

/mqsz1i8E0　　　end;

　　end;51Testing软件测试网RHJv[/Z8yC

　　10.Erase

:Q3L}:hI0nQW0　　功能说明：删除文件。

　　参考实例：

V*oZ%kk~ }%b0　　var

　　　F: File;

　　begin

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

Hf1h2{9Z&Us0　　　Reset(F); // 打开文件

4zXDZ'g%oV?e0　　　CloseFile(F); // 关闭文件51Testing软件测试网%q @1S0T4lQ+k

"uf"d\)i [0|0　　　Erase(F); // 删除文件。在删除文件之前必须先关闭文件。51Testing软件测试网w%T]r_w

:c$L1eg&aK$m oS0　　end;

　　11.FileExists

　　功能说明：检测指定的文件否存在。如果存在则返回True，反之则为False。

*rP{+M.l0　　参考实例：

g#IrN;om8dG0　　var

　　　IsExists: Boolean;

8o$^4^5w@S+F{P0　　begin

3n(@ @GoSm:w4i0　　　IsExists := FileExists('C:\Test.txt');

O.B})O%f4w0　　　if IsExists then ShowMessage('该文件存在！')51Testing软件测试网{;RB%v\Q$x

lk9a3R&~)f&i0　　　else ShowMessage('该文件不存在！');51Testing软件测试网lk@'K(n6a

)Va7]|7ucC0　　end;

　　12.FileSize

　　功能说明：获取文件大小。返回的结果是字节为单位。51Testing软件测试网G1f(`:v#d

qRq6L3^)K2z0@2Fa#a0　　参考实例：

　　var

O*\'Y%WR F0　　　F: file of Byte;

xm+hlx0　　　nSize: Longint;

3pXZ/[^CIDl5C(j0　　begin

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

e h~"C$? I]^]0　　　Reset(F); // 打开文件

5M'wM S1H0　　　nSize := FileSize(F); // 获取文件大小。

　　　CloseFile(F); // 关闭文件

　　end;

　　13.ForceDirectories

　　功能说明：创建新的子目录。路径中不存在的目录将一同创建。51Testing软件测试网;c`IA p

eZ _,Cba$k0　　参考实例：

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

　　14.MkDir

　　功能说明：创建一个新的子目录(文件夹)。

　　参考实例：

Zi.M,v&B2bh0　　MkDir('C:\MyFolder'); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。51Testing软件测试网MFjA~(V

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

　　15.Reset

9h|-N*E:^0　　功能说明：以只读方式打开文件。

　　参考实例：51Testing软件测试网&D"|c"\-M5F8m

　　var

b%{7{9{7{"@k0　　　F: TextFile; // 声明文本文件类型变量

　　begin

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

h6M|0qZ8@^-j0　　　Reset(F); // 打开文件

　　end;

　　16.Rewrite

['j!b;Zs6G8|(B.E,P0　　功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。51Testing软件测试网4Xe.Kp9Ox

3bRsM%D9M-b9v^G0　　参考实例：

　　var51Testing软件测试网h]R-Vk5Cy

[MX/B_&]"u0　　　F: TextFile; // 声明文本文件类型变量

?*DZqjOz?4t k0　　begin

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

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

%XI"cF%ST0　　end;

　　17.Readln

AGW+J+lT3zz0　　功能说明：读取一行文本。51Testing软件测试网_7Iv3t(h"R[

r ]I3B'|(h0　　参考实例：51Testing软件测试网!Tuu"Me[

:HI @ N f0f5G'm0　　var51Testing软件测试网%VSY D-U2_O

#z L:VNcvT n~3i0　　　S: String;

;Zn8f.{Jl3^;l0　　　F: TextFile;51Testing软件测试网4Z6?R1{j

Ah}*\9DS)F0　　begin

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。51Testing软件测试网8yR{iG5~4A:]

$h@P7z.\+F0　　　Reset(F); // 打开文件

　　　Readln(F, S); // 读取一行文本到S变量中

W8a?(pWo0　　end;

　　18.Rename

　　功能说明：更改文件名。

IHq rVX`0　　参考实例：

l5xb5H/Ip"l7a0　　var51Testing软件测试网i0tI1c[*s

6fp-G"O:V{8tU0　　　F: File;

:wL/PX4| h!K0　　begin

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

kD0E7q X~&nG3c0　　　ReName(F, 'C:\NewFile.txt'); // 更名为NewFile.txt51Testing软件测试网 \Y b5|mV@

ATJ\]4nZp1I0　　end;

　　19.Writeln

!oX Z5xbG&s9YT0　　功能说明：写入一行文本。

　　参考实例：

　　var

3e%F s\c$kI:Nj0　　　S: String;51Testing软件测试网D(fJ{u

　　　F: TextFile;

　　begin

　　　S := 'This is a book.';

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

yrL#s lG;S0　　　Rewrite(F); // 创建新文件

　　　Writeln(F, S); // 将S变量中的内容写入文本中。

　　end;

　　四、内存、指针操作函数

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

　　1.AllocMem

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

　　参考实例：

　　var51Testing软件测试网 H,GC]R#?

　　　Buffer: PChar;51Testing软件测试网+e Hh$\s)a F

)i?_"z(uD Tf#O0　　begin51Testing软件测试网e?y)Qk

　　　Buffer := AllocMem(256); // 分配大小为256个字节的内存空间51Testing软件测试网;rhjw E3xoW

　　end;51Testing软件测试网 ja7hQJ

　　2.Dispose

1B&s6vf\y0　　功能说明：释放为指针分配的内存空间。

2v!KWf5iQ2gS"G4O0　　参考实例：

-vK*C%}4QrUq0　　var51Testing软件测试网is5Qq#f {F

　　　P: Pinteger; // 声明一个Integer(整型)指针51Testing软件测试网@_h+l8@ Wyz

PB0?P0YD0　　begin

　　　New(P);

J3k I)S?0　　　P^ := 100;51Testing软件测试网4jp[_Dm

　　　Dispose(P) // 释放内存51Testing软件测试网X9fTJ1`7V7cf

　　end;

　　3.FreeMem

*cRJdc%q0　　功能说明：释放分配的内存空间。

　　参考实例：51Testing软件测试网9Zb{h$n

KC%VX:Xz0?6j F0　　var

　　　Buffer: Pchar;51Testing软件测试网eE*ys[7r

k K$dPR ~0　　begin

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

9L5@:p$S {'\BK#Z0　　　FreeMem(Buffer); // 释放内存空间51Testing软件测试网Yfu+fV]F

　　end;

　　4.GetMem

ei2kd[CA0　　功能说明：分配内存空间。

[:g&p{ J0　　参考实例：

(dQhyV~\8J3pNa0　　var51Testing软件测试网-Oaz/{Y*u%may

　　　Buffer: PChar;51Testing软件测试网no?4Z_:t

iyql(TN,o0　　begin

?"_9y|+l7Ol0　　　GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。51Testing软件测试网Rm"u$KLTJ

　　end;

　　5.New

@HdV$L7Aa\2G0　　功能说明：为指针分配内存空间。

　　参考实例：

wElp t y/MVI0　　var51Testing软件测试网B"qmmF

　　　P: PInteger; // 声明一个Integer(整型)指针

GvT:},xd3T0　　begin

　　　New(P); // 分配内存

　　　P^ := 100; // 赋值

　　end;

　　五、数学运算函数

D@kWkTj0　　我们在编写跟数学紧密相关的程序时，数学运算函数将大有用处。比如图像处理软件，就会大量用到这些数学运算函数。

-WHzg,H9R`)_N p4E0　　默认情况下，Delphi新建的工程里，没有包含大多数的数学运行函数，因此需要在Uses中加入Math单元。51Testing软件测试网9Vb f8b[HM1K

　　1.Abs

　　功能说明：求绝对值。51Testing软件测试网'S:fl^ hlH

　　参考实例：51Testing软件测试网.~ i)~w:s P7x

　　var

　　　r: Single;

　　　i: Integer;

　　begin

　　　r := Abs(-2.8); // r等于 2.8

　　　i := Abs(-156); // I 等于 156

O3U/UY+g e7@Ym0　　end;

　　2.Exp

$pE@?7~K0　　功能说明：Exp返回e的X次幂的值，其中e是一个自然对数基底。

　　参考实例：

　　　e := Exp(1.0); // e为real型变量

　　end;51Testing软件测试网!Re(r5t)Y4J

　　3.Floor

`6aEnORj1d0　　功能说明：取得小于等于X的最大的整数。51Testing软件测试网.v3YdVR;]@

　　参考实例：

o w)O R_,CEcA0　　Floor(-2.8) = -3

　　Floor(2.8) = 2

+]%V1ed'?#QL6P0　　Floor(-1.0) = -1

　　4.Int

;aL"zE&e9ov"?F0　　功能说明：返回参数中的整数部分。51Testing软件测试网M{0m)?i

　　参考实例：

3CGL[._F0　　var

t|ygcToj h0　　　R: Real;

*[7i&E*kfP D7amX5@0　　begin

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

　　　R := Int(-123.456); // R等于 -123.051Testing软件测试网,\i![6RZEC,T

uf)HvPE v%yf/R0　　end;

　　5.Max(所在单元：Math)

"| {({pt0　　功能说明：比较两个数字，并返回最大的一个数字。

2\,Le1EC1`0　　参考实例：

　　var51Testing软件测试网9lV&Q7wm

　　　k: Integer;

F;e6c `(vsv5o0　　begin

fl"swfql0　　　k := Max(10, 20); // k将为20

　　end;

　　6.Min(所在单元：Math)

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

　　参考实例：

8~5ggq~.UqFo+w0　　var

　　　k: Integer;

　　begin51Testing软件测试网o^@ ~ufFy

d_/_@,Z(h0　　　k := Min(10, 20); // k将为10

IJW-`-U`9P YU0　　end;51Testing软件测试网1QhuA/FY6?

　　7.PI

p#b n0{;gS"zy1s0　　功能说明：精确计算返回圆周率。

.FV;v;D.@M%M|0　　参考实例：

　　var

　　　x Extended;51Testing软件测试网6u0s)}%NB6e+B

　　begin

:@{Ok4q)p h6QQ pW0　　　x := PI; // x等于3.1415926535897932385

rO%`d{@Q X6l0　　end;51Testing软件测试网f_.y"S]G4`

　　8.Round

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

7b ~"F:Y5jc W+]J1_4I0　　参考实例：

})zLq4Sxu3vV0　　var

QAC7ZD8e9e0　　　I, j: Integer;

2W{AC-K#X3}1{)z-] X0　　begin

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

'r-p1FV B!U0　　　j := Round(1.62); // j等于2

　　end;51Testing软件测试网(OB*}0a\ T@

　　9.Sqr

　　功能说明：取给定值的平方。

　　参考实例：51Testing软件测试网[k]5dk8dZ

4m3Z,VRS|"PL.pt0　　var

　　 i: Integer;

　　begin

　　 i := Sqr(3); // i等于951Testing软件测试网EN@Q&FtW

　　end;51Testing软件测试网x4j}1S.SC0_

　　六、日期函数

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

　　1.Date

`w5W7tF0　　功能说明：返回当前的日期。51Testing软件测试网*M"Gqv5G${W

j!vMfC0　　参考实例：

8Q'P co9`h.r0　　procedure TForm1.Button1Click(Sender: TObject);

zrZ2PP.U2]]0　　begin

　　　Label1.Caption := '今天是：' + DateToStr(Date);

　　end;

%k(H"vu)w0　　Label显示为：今天是2005年1月1日。51Testing软件测试网M7tW)i]xp

　　2.DateToStr

　　功能说明：将日期型转换为字符型。51Testing软件测试网&|h]$qjG

　　参考实例：

(G#j5P Z~ do0　　var

　　　S: String;

'B \\$z7MYr0G0　　begin

c6c}6S6N5a1w0　　　S := DateToStr(Date);

5t%e|3Rv+Y:L0　　end;51Testing软件测试网X#h&s4HkzT

　　3.DateTimeToStr

　　功能说明：将DateTime型转换为字符型。

(qTM"M3Bi,W5ic0　　参考实例：

'Qy)rJ6Zf/i.Q3u0　　var51Testing软件测试网{)d/v1N1{/qa

vsj"I$s%P4l}Z0　　　S: String;

j x6yKH6S[\0　　begin

　　　S := DateTimeToStr(Now);

D;A9nO cIf0　　end;51Testing软件测试网a{V2~czb7m

　　4.DayOfTheMonth(所在单元：DateUtils)

*B3sWg eH4x h0　　功能说明：获取指定日期的日。

}Y4qPZ*^3{(J0　　参考实例：51Testing软件测试网Km X[~-d;h

fvj?7a\$vwpE0　　Label1.Caption := IntToStr(DayOfTheMonth(Now));

　　假设当前日期为2005年1月2日，那么Label将显示为2。51Testing软件测试网\vJ(K)H]

　　5.DayOfTheWeek(所在单元：DateUtils)

^'@%S.]qi0　　功能说明：根据指定日期，获取星期几。

5{6V(l n$cAv G;|'f0　　参考实例：51Testing软件测试网A9_i$_F

　　Label1.Caption := IntToStr(DayOfTheMonth(Now));51Testing软件测试网5V#~ qx1^j:U

　　假设当前日期为2005年1月2日，那么Label将显示为7。根据返回的值来判断是周几。7表示星期天，1为星期一，依类类推。51Testing软件测试网%Q["xMO,P+{S

　　6.DayOfTheYear(所在单元：DateUtils)

Z2p.N{)?a'~0　　功能说明：根据指定日期，获取天数。

XfH#\P{OU0　　参考实例：

　　Label1.Caption := IntToStr(DayOfTheYear(Now));51Testing软件测试网4sR3l4gD#nC h

Q uA3}+TZ0　　假设当前日期为2005年1月2日，那么Label将显示为2。表示是2005年的第2天。

　　7.DayOf(所在单元：DateUtils)

[ @%QFt7q0　　功能说明：根据指定的日期，返回日。51Testing软件测试网2gS?hH

　　参考实例：

(?&M7j_'U(WlE `0　　Label1.Caption := IntToStr(DayOf(Date));51Testing软件测试网fid&]:bKN-v

[6@'K/Hx0　　假设当前日期为2005年1月2日，那么Label将显示为2。

　　8.IsLeapYear

　　功能说明：根据指定的年，判断是否为闰年。可使用YearOf函数获取年。51Testing软件测试网7K7g$R Z6I`

Xw-u+LLN#E0　　参考实例：

,y#E#X4R8h+R t0　　procedure TForm1.Button1Click(Sender: TObject);

　　begin51Testing软件测试网kR8W!Xnn$?

k2i t#P2}-O'I@Ys)q0　　　if IsLeapYear(YearOf(Date)) then ShowMessage('是闰年')

　　　else ShowMessage('不是闰年');

3bBs&FhjC8F0　　end;

　　9.MonthOf(所在单元：DateUtils)

　　功能说明：根据指定的日期，返回月份。

6jy#[;p.__~;Zc4A0　　参考实例：

v2mV9r4t@9o3wlK0　　Label1.Caption := IntToStr(MonthOf(Date));

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

　　10.Now

S4{jm3pw0　　功能说明：返回当前日期及时间。

gt3C!WJ4Y0　　参考实例：

R2Q[1q$RY|8Lt2r0　　procedure TForm1.Button1Click(Sender: TObject);

2I:t*z+R2B0　　begin51Testing软件测试网@4G;wO-Ok

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

7XL-?_,M3k0　　end;51Testing软件测试网[5I"jU"IZD)k

　　11.YearOf(所在单元：DateUtils)

~&uv8Qs4eA6g)lT0　　功能说明：根据指定的日期，返回年。

　　参考实例：51Testing软件测试网6R\{db

2O;`Wwo,oXy@0　　Label1.Caption := IntToStr(YearOf(Date));

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

2S6uRx,^5~V0

5M&}1r3`!h(w6v0http://www.tongyi.net/article/20050615/200506154265.shtml51Testing软件测试网'fRbv7Q*H6mD

用户菜单

标题搜索

日历

数据统计

访问量: 270654
日志数: 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)