1Delphi常用函数文档格式.docx

1、I :不能转换如 StrToInt（ab）或StrToInt（好）这样的类型，因为他们并不存在数字型。5.StrToFloat该函数用于将“字符型”转换成“浮点型”。N := StrToFloat（Edit1.Text）;注意：Edit1.Text中的内容为1.981（凡在Edit控件中显示的文本均为字符串）。N为Double类型，用于保存转换后的浮点型数据。1.HexToBin（） 十六进制转换二进制所在单元：ClassesDelphi语法：function HexToBin（Text, Buffer: PChar; BufSize: Integer）: Integer 描述：调用HexTo

2、Bin函数转换十六进制字符串到相应的二进制值。Text是一个表示十六进制值的字符串。Buffer返回转换后的二进制结果值。BufferSize表示Buffer的大小。Text需要指向至少2*BufSize的十六进制字符，因为每两个十六进制字符表现为一个字节。HexToBin返回在Buffer中因为Text没有包含有效的十六进制字符（0.f）而还没有被用的字符数量.十六进制数必须使用小写字符；HexToBind不能识别大写字符。2.BinToHex（） 二进制转换十六进制 procedure BinToHex（Buffer, Text: Integer）;调用BinToHex转换buffer中的

3、二进制值为它所表示的十六进制字符串Buffer是一个字节的缓冲区，其中包含二进制值Text返回一个以null为结束字符的字符串，表示Buffer作为十六进制数的值BufSize表示Buffer的大小。Text需要指向一系列字符，这些字符至少有2*BufSize大小字节。3.IntToHex（）将整型数转换为十六进制数SysUtilsfunction IntToHex（Value: Integer; Digits: string; overload; Int64;IntToHex转换一个数字为这个数字十六进制表示的字符串。Value是要转换的数字。参数Digits指定字符最小宽度，最小宽度不足时

4、将用0填充。4.StrToInt（）字符串转换成整型数function StrToInt（const S: string）:返回字符串S转换成整数，字符串非整数表达时将引起异常，十六进制字符串转换为整型数要求在字符串前面添加$即可。5.把一个整数变成二进制字符串 function IntToBinaryStr（TheVal: LongInt）:varcounter: LongInt;begin This part is here because we remove leading zeros. Thatmeans that a zero value would return an empty

5、string. if TheVal = 0 then begin result := ; exit; end; counter := $80000000; Suppress leading zeros while （counter and TheVal） = 0） do begin= counter shr 1; if （counter = 0） then break; We found our first 1. while counter 0 do begin if （counter and TheVal） = 0 then result := result + else result :1

6、end;/ Binary to Integerfunction BinToInt（Value:i, iValueSize: Result := 0; iValueSize := Length（Value）; for i := iValueSize downto 1 do if Valuei = then Result := Result + （1 shl （iValueSize - i）;/ Integer to Binaryfunction IntToBin（Value: Longint;i:= Digits downto 0 do if Value and （1 shl i） 0 then

7、= Result + else6.十六进制转换二进制 function HexToBin（Hexadecimal:constBCD: array 0.15 of string =（0000, 0001001000110100010101100111,10001001101010111100110111101111 integer;= Length（Hexadecimal） downto 1 do= BCDStrToInt（$ + Hexadecimali） + Result;7.八进制和十进制的转换function OctToInt（Value:int: int := 1 to Length（

8、Value） do begin= int * 8 + StrToInt（Copy（Value, i, 1）;= int;function IntToOct（Value: digits:rest:oct: oct : while Value 0 do rest := Value mod 8; Value := Value div 8;= IntToStr（rest） + oct;= Length（oct） + 1 to digits do + oct;= oct;function BinToHex（Bin: String）: String; i : tmp : iLen : /Bin := Re

9、verseString（Bin）;= Length（Bin）;= 1 to iLen do begin= tmp + Min（StrToIntDef（Bini,0）,1） shl （iLen - i）;= Format（%.2X,tmp）;二、字符串、数组操作函数对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。1.Copy该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源（即被复制的字符串），第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度（即个数）。最后函数返回一个新的字符串（即是我们指定要复制的字符串

10、内容）。var S: MyStr: / 保存新的字符串begin S :I Love China!/下面将获取I Love China中的“Love”字符串。MyStr := Copy（S, 3, 4）;end;执行结果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。2.Concat连接两个或多个字符串为一个字符串。 S1, S2: S1 := Concat（AB / 连接两个字符串，S1变量等于AB。 S2 :Borland Delphi 7.0 / 连接三个字符，S2变量等

11、于Borland Delphi 7.0。3.Delete删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串，第二个参数为从何处开始删除，第三个参数为删除的字符个数。参考实例：I Like Reading CPCW. / 下面的代码将删除S变量中的“C”字符。 Delete（S, 16, 1）;此时S变量则是I Like Reading PCW.（“C”已经不存在了）。4.High返回数组下标的最大值。 arrText: array0.9 of Char; i: i := High（arrText）; / i的值则为95.Insert插入一个字符（串）。第一个参数为要插入

12、的字符（串），第二个参数为被插入字符串（源字符串），第三个参数为从何处插入。Wat is your name? / 上面句子中的What单词查一个“h”字符，下面使用Insert函数将h添加进去。 Insert（h, S, 2）; / 将“h”从第2位处插入。6.LeftStr（所在单元：StrUtils）返回字符串左边指定个数的新字符（串）。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。 S, A:MSN Messenger A := LeftStr（S, 3）; / 从最左边开始，获取左边的三个字符。因此A变量则等于MSN。7.Length该函数用于统计指定字符串的长度

13、（即个数）。nLen1, nLen2: / 用于保存字符串长度 nLen1 := Length（CPCWnLen2 :电脑报执行结果，nLen1等于4，nLen2等于6。由于一个汉字相当于两个字符的长度，所以3个汉字的长度为6。8.Low返回数组下标的最小值。 array1.9 of Char; / i的值则为19.LowerCase将字符（串）中的英文字符转换为小写。ABC A := UpperCase（S）; / 经过UpperCase函数转换后，A则等于abc。10.MidStr（所在单元：返回指定范围内的字符串。第一个参数为源字符串，第二个参数为起点，第三个参数为结束点。通过第二、第三

14、个参数则可指定要复制字符串的范围。Copy函数与此函数类似。MidStr主要用于处理含有中文字符的字符串。 H:= MidStr（China, 1, 2）; / S变量为Ch H :, 1, 1）; / H变量为“电”。如果使用Copy函数，则应是H := Copy（电脑报, 1, 2），否则返回的将不是“电”字。因此在使用操作含有中文的字符串时，最好使用MidStr。11.Pos查找字符（串）所在位置。第一个参数为要查找的字符（串），第二个参数为被查找字符（串）。 nPos: / 用于保存查找的字符所在位置 nPos := Pos（LikeI Like Reading!此时nPos等于3。如

15、果没有查找到，则nPos为0。Pos函数在查找时是要区分字符大小的。如果要实现不区分大小，那么需要使用UpperCase或LowerCase函数将两个参数的字符（串）转换为“大写”或“小写”再进行查找。另外还有一个查找字符（串）的函数-AnsiPos，该函数的使用方法与Pos函数完全一样。当你查找的是汉字时，最好使用AnsiPos函数。12.RightStr（所在单元：返回字符串右边指定个数的新字符（串）。= RightStr（S, 3）; / 从最右边开始，获取右边的三个字符。因此A变量则等于ger。13.SetLength设置字符串或动态数组长度。第一个参数为要设置的字符串变量或动态数组变

16、量，第二个参数为指定的长度，其取值范围在0到255之间。 array of Char; / 定义一个动态数组 SetLength（S, 10）; / 当设置后，S变量只能赋值长度为10的字符串。 SetLength（arrText, 10）; / 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrText: array0.9 of Char14.StrPCopy将字符串复制到字符数组中。第一个参数为“目标数组”，第二个参数为“字符串”。 arrChar: array0.255 of Char; / 这里声明了长度为256的Char型数组 StrPCo

17、py（arrChar, Come on, baby!15.Trim删除字符串左右两边的空格（无论左右两边有多少个空格均被全部删除）。 Delphi 7.0 = Trim（S）;16.TrimLeft删除字符串左边的空格（无论左边有多少个空格均被全部删除）。= TrimLeft（17.TrimRight= TrimRight（Delphi 18.UpperCase将字符（串）中的英文字符转换为大写。abc / 经过UpperCase函数转换后，A则等于ABC。三、文件、磁盘操作函数软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。1.Append追加

18、内容到文件中。文件必须要存在。 F: TextFile;This is a book.AssignFile（F, C:MyFile.txt / 将C:MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。 Append（F）; / 以追加的方式打开文件 Writeln（F, S）; / 将S变量中的内容追加到文本尾后。 CloseFile（F）; / 关闭文件2.AssignFile与指定的文件建立连接。 / 声明文本文件类型变量 AssignFile（F, 3.ChDir改变当前目录（文件夹）。 sDir: sDir :Windows ChDir（sDir）; / 此时

19、，系统的当前目录则为C:Windows目录。4.CloseFile关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。 AllText: Reset（F）; / 打开文件 while not EOF（F） do begin / 使用While循环，一直判断是否到了文件未尾 Readln（F, S）; / 读取一行文本 AllText := AllText + S; end;5.DeleteFile删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。 IsOK: Boolean; / 用于保存删除状态 IsOK := DeleteFile（My DocumentsIndex.html / 函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。 if IsOK then ShowMessage（文件删除成功！ else ShowMessage（文件删除失败！6.DirectoryExists检测指定的文件夹否存在。如果存在则返回True，反之则为False