delphi 7_0常用函数速查手册 统一教学网.htm

GPS对讲机接收

            <P>　　 　AllText: String;</P>
            <P>　　 　F: TextFile;</P>
            <P>　　begin</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Reset(F); // 打开文件</P>
            <P>　　 　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾</P>
            <P>　　 　　Readln(F, S); // 读取一行文本</P>
            <P>　　 　　AllText := AllText + S;</P>
            <P>　　 　end;</P>
            <P>　　 　CloseFile(F); // 关闭文件</P>
            <P>　　end;</P>
            <H3>　　5.DeleteFile</H3>
            <P>　　功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　IsOK: Boolean; // 用于保存删除状态</P>
            <P>　　begin</P>
            <P>　　 　IsOK := DeleteFile('C:\My Documents\Index.html'); // 
            函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。</P>
            <P>　　 　if IsOK then ShowMessage('文件删除成功！')</P>
            <P>　　 　else ShowMessage('文件删除失败！');</P>
            <P>　　end;</P>
            <H3>　　6.DirectoryExists</H3>
            <P>　　功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　IsExists: Boolean;</P>
            <P>　　begin</P>
            <P>　　 　IsExists := DirectoryExists ('C:\Windows');</P>
            <P>　　 　if IsExists then ShowMessage('Windows文件夹存在！')</P>
            <P>　　 　else ShowMessage('Windows文件夹不存在！');</P>
            <P>　　end;</P>
            <H3>　　7.DiskFree</H3>
            <P>　　功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　FreeSize: Int64;</P>
            <P>　　begin</P>
            <P>　　 　FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。</P>
            <P>　　end;</P>
            <H3>　　8.DiskSize</H3>
            <P>　　功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　DiskSize: Int64;</P>
            <P>　　begin</P>
            <P>　　 　DiskSize:= DiskSize(3); // 获取C盘的空间。返回的值是以“字节”为单位的。</P>
            <P>　　end;</P>
            <H3>　　9.EOF</H3>
            <P>　　功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　S: String;</P>
            <P>　　 　AllText: String;</P>
            <P>　　 　F: TextFile;</P>
            <P>　　begin</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Reset(F); // 打开文件</P>
            <P>　　 　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾</P>
            <P>　　 　　Readln(F, S); // 读取一行文本</P>
            <P>　　 　　AllText := AllText + S;</P>
            <P>　　 　end;</P>
            <P>　　end;</P>
            <H3>　　10.Erase</H3>
            <P>　　功能说明：删除文件。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　F: File;</P>
            <P>　　begin</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Reset(F); // 打开文件</P>
            <P>　　 　CloseFile(F); // 关闭文件</P>
            <P>　　 　Erase(F); // 删除文件。在删除文件之前必须先关闭文件。</P>
            <P>　　end;</P>
            <H3>　　11.FileExists</H3>
            <P>　　功能说明：检测指定的文件否存在。如果存在则返回True，反之则为False。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　IsExists: Boolean;</P>
            <P>　　begin</P>
            <P>　　 　IsExists := FileExists('C:\Test.txt');</P>
            <P>　　 　if IsExists then ShowMessage('该文件存在！')</P>
            <P>　　 　else ShowMessage('该文件不存在！');</P>
            <P>　　end;</P>
            <H3>　　12.FileSize</H3>
            <P>　　功能说明：获取文件大小。返回的结果是字节为单位。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　F: file of Byte;</P>
            <P>　　 　nSize: Longint;</P>
            <P>　　begin</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Reset(F); // 打开文件</P>
            <P>　　 　nSize := FileSize(F); // 获取文件大小。</P>
            <P>　　 　CloseFile(F); // 关闭文件</P>
            <P>　　end;</P>
            <H3>　　13.ForceDirectories</H3>
            <P>　　功能说明：创建新的子目录。路径中不存在的目录将一同创建。</P>
            <P>　　参考实例：</P>
            <P>　　ForceDirectories('C:\Flash\MyFolder'); // 
            如果Flash文件夹本身不存的话，那么将会先创建Flash文件夹，然后再创建MyFolder文件夹。</P>
            <H3>　　14.MkDir</H3>
            <P>　　功能说明：创建一个新的子目录(文件夹)。</P>
            <P>　　参考实例：</P>
            <P>　　MkDir('C:\MyFolder'); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。</P>
            <P>　　需要注意的是，如果在本身不存在的目录中创建子目录将会失败。比如C盘根本不存在Flash文件夹，写成MkDir('C:\Flash\MyFolder');这样将不能成功创建MyFolder文件夹。</P>
            <H3>　　15.Reset</H3>
            <P>　　功能说明：以只读方式打开文件。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　F: TextFile; // 声明文本文件类型变量</P>
            <P>　　begin</P>
            <P>　　 　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Reset(F); // 打开文件</P>
            <P>　　end;</P>
            <H3>　　16.Rewrite</H3>
            <P>　　功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　F: TextFile; // 声明文本文件类型变量</P>
            <P>　　begin</P>
            <P>　　 　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Rewrite(F); // 
            打开文件。如果文件不存在，将会在C盘中创建MyFile.txt文件。如果文件存在，将会覆盖MyFile.txt中的所有内容。</P>
            <P>　　end;</P>
            <H3>　　17.Readln</H3>
            <P>　　功能说明：读取一行文本。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　S: String;</P>
            <P>　　 　F: TextFile;</P>
            <P>　　begin</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Reset(F); // 打开文件</P>
            <P>　　 　Readln(F, S); // 读取一行文本到S变量中</P>
            <P>　　end;</P>
            <H3>　　18.Rename</H3>
            <P>　　功能说明：更改文件名。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　F: File;</P>
            <P>　　begin</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　ReName(F, 'C:\NewFile.txt'); // 更名为NewFile.txt</P>
            <P>　　end;</P>
            <H3>　　19.Writeln</H3>
            <P>　　功能说明：写入一行文本。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　S: String;</P>
            <P>　　 　F: TextFile;</P>
            <P>　　begin</P>
            <P>　　 　S := 'This is a book.';</P>
            <P>　　AssignFile(F, 'C:\MyFile.txt'); // 
            将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。</P>
            <P>　　 　Rewrite(F); // 创建新文件</P>
            <P>　　 　Writeln(F, S); // 将S变量中的内容写入文本中。</P>
            <P>　　end;</P>
            <H2>　　四、内存、指针操作函数</H2>
            <P>　　在编程中，动态数组为我们处理数据带来了很大的方便。Windows 
            API函数也为增强程序的功能提供了强有力的保障。当我们在使用这些动态数组及API函数时，常常需要动态分配内存空间，这样动态数组才能被我们使用，API函数才能正确的返回结果。因此，这些函数是必不可少的。</P>
            <H3>　　1.AllocMem</H3>
            <P>　　功能说明：分配内存空间并自动初始化为零。如果不需要初始化为零，可以使用GetMem代替AllocMem。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　Buffer: PChar;</P>
            <P>　　begin</P>
            <P>　　 　Buffer := AllocMem(256); // 分配大小为256个字节的内存空间</P>
            <P>　　end;</P>
            <H3>　　2.Dispose</H3>
            <P>　　功能说明：释放为指针分配的内存空间。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　P: Pinteger; // 声明一个Integer(整型)指针</P>
            <P>　　begin</P>
            <P>　　 　New(P);</P>
            <P>　　 　P^ := 100;</P>
            <P>　　 　Dispose(P) // 释放内存</P>
            <P>　　end;</P>
            <H3>　　3.FreeMem</H3>
            <P>　　功能说明：释放分配的内存空间。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　Buffer: Pchar;</P>
            <P>　　begin</P>
            <P>　　 　GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。</P>
            <P>　　 　FreeMem(Buffer); // 释放内存空间</P>
            <P>　　end;</P>
            <H3>　　4.GetMem</H3>
            <P>　　功能说明：分配内存空间。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　Buffer: PChar;</P>
            <P>　　begin</P>
            <P>　　 　GetMem(Buffer, 256); // 分配大小为256个字节的内存空间。</P>
            <P>　　end;</P>
            <H3>　　5.New</H3>
            <P>　　功能说明：为指针分配内存空间。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　P: PInteger; // 声明一个Integer(整型)指针</P>
            <P>　　begin</P>
            <P>　　 　New(P); // 分配内存</P>
            <P>　　 　P^ := 100; // 赋值</P>
            <P>　　end;</P>
            <H2>　　五、数学运算函数</H2>
            <P>　　我们在编写跟数学紧密相关的程序时，数学运算函数将大有用处。比如图像处理软件，就会大量用到这些数学运算函数。</P>
            <P>　　默认情况下，Delphi新建的工程里，没有包含大多数的数学运行函数，因此需要在Uses中加入Math单元。</P>
            <H3>　　1.Abs</H3>
            <P>　　功能说明：求绝对值。</P>
            <P>　　参考实例：</P>
            <P>　　var</P>
            <P>　　 　r: Single;</P>
            <P>　　 　i: Integer;</P>
            <P>　　begin</P>
            <P>　　 　r := Abs(-2.8); // r等于 2.8 </P>
            <P>　　 　i := Abs(-156); // I 等于 156</P>
            <P>　　end;</P>
            <H3>　　2.Exp</H3>
            <P>　　功能说明：Exp返回e的X次幂的值，其中e是一个自然对数基底。</P>
            <P>　　参考实例：</P>