Delphi 7.0常用函数速查手册[3]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 net19661891 的 blog

  assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    reset(f); // 打开文件

    closefile(f); // 关闭文件

    erase(f); // 删除文件。在删除文件之前必须先关闭文件。

  end;

  11.fileexists
  功能说明:检测指定的文件否存在。如果存在则返回true,反之则为false。

  参考实例:

  var

    isexists: boolean;

  begin

    isexists := fileexists('c:\test.txt');

    if isexists then showmessage('该文件存在!')

    else showmessage('该文件不存在!');

  end;

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

  参考实例:

  var

    f: file of byte;

    nsize: longint;

  begin

  assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    reset(f); // 打开文件

    nsize := filesize(f); // 获取文件大小。

    closefile(f); // 关闭文件

  end;

  13.forcedirectories
  功能说明:创建新的子目录。路径中不存在的目录将一同创建。

  参考实例:

  forcedirectories('c:\flash\myfolder'); // 如果flash文件夹本身不存的话,那么将会先创建flash文件夹,然后再创建myfolder文件夹。

  14.mkdir
  功能说明:创建一个新的子目录(文件夹)。

  参考实例:

  mkdir('c:\myfolder'); // 在c盘根目录中创建了一个名叫myfolder的文件夹。

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

  15.reset
  功能说明:以只读方式打开文件。

  参考实例:

  var

    f: textfile; // 声明文本文件类型变量

  begin

    assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    reset(f); // 打开文件

  end;

  16.rewrite
  功能说明:以可写方式打开文件。如果文件不存在,将会自动创建。使用该函数,将会覆盖文件中的所有内容。

  参考实例:

  var

    f: textfile; // 声明文本文件类型变量

  begin

    assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    rewrite(f); // 打开文件。如果文件不存在,将会在c盘中创建myfile.txt文件。如果文件存在,将会覆盖myfile.txt中的所有内容。

  end;

  17.readln
  功能说明:读取一行文本。

  参考实例:

  var

    s: string;

    f: textfile;

  begin

  assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    reset(f); // 打开文件

    readln(f, s); // 读取一行文本到s变量中

  end;

  18.rename
  功能说明:更改文件名。

  参考实例:

  var

    f: file;

  begin

  assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    rename(f, 'c:\newfile.txt'); // 更名为newfile.txt

  end;

  19.writeln
  功能说明:写入一行文本。

  参考实例:

  var

    s: string;

    f: textfile;

  begin

    s := 'this is a book.';

  assignfile(f, 'c:\myfile.txt'); // 将c:\myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。

    rewrite(f); // 创建新文件

    writeln(f, s); // 将s变量中的内容写入文本中。

  end;

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

  1.allocmem
  功能说明:分配内存空间并自动初始化为零。如果不需要初始化为零,可以使用getmem代替allocmem。

  参考实例:

  var

    buffer: pchar;

  begin

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

  end;

  2.dispose
  功能说明:释放为指针分配的内存空间。

  参考实例:

  var

    p: pinteger; // 声明一个integer(整型)指针

  begin

    new(p);

    p^ := 100;

    dispose(p) // 释放内存

  end;

  3.freemem
  功能说明:释放分配的内存空间。

  参考实例:

  var

    buffer: pchar;

  begin

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

    freemem(buffer); // 释放内存空间

  end;

  4.getmem
  功能说明:分配内存空间。

  参考实例:

  var

    buffer: pchar;

  begin

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

  end;

  5.new
  功能说明:为指针分配内存空间。

  参考实例:

  var

    p: pinteger; // 声明一个integer(整型)指针

  begin

    new(p); // 分配内存

    p^ := 100; // 赋值

  end;

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

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

  1.abs
  功能说明:求绝对值。

  参考实例:

  var

    r: single;

    i: integer;

  begin

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

    i := abs(-156); // i 等于 156

  end;

  2.exp
  功能说明:exp返回e的x次幂的值,其中e是一个自然对数基底。

  参考实例:

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

  end;

  3.floor
  功能说明:取得小于等于x的最大的整数。

  参考实例:

  floor(-2.8) = -3

  floor(2.8) = 2

  floor(-1.0) = -1

  4.int
  功能说明:返回参数中的整数部分。

  参考实例:

  var

    r: real;

  begin

    r := int(123.456); // r等于 123.0

    r := int(-123.456); // r等于 -123.0

  end;

  5.max(所在单元:math)
  功能说明:比较两个数字,并返回最大的一个数字。

  参考实例:

  var

    k: integer;

  begin

    k := max(10, 20); // k将为20

  end;

  6.min(所在单元:math)
  功能说明:比较两个数字,并返回最小的一个数字。

  参考实例:

  var

    k: integer;

  begin

    k := min(10, 20); // k将为10

  end;

  7.pi
  功能说明:精确计算返回圆周率。

  参考实例:

本文关键:Delphi 7.0常用函数速查手册
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top