Delphi实用教程749汇总553.pptVIP

6.2 文件管理相关的函数和过程 (2) FindNext函数 FindNext函数用于查询下一个满足条件的文件。 ▲语法： Function FindNexr(var F: TsearchRec):Integer; 在上面的定义中，参数Ｆ保存查找到的文件的基本信息， 返回值为“０”则说明查找成功，否则查找失败。 (3) FindClose过程 FindClose过程用于释放由FindFirst函数分配的系统资源。 ▲语法： procedure FindClose(var F: TSearchRec); 第6章 文件编程 * fhfgh 文件管理函数和过程的应用 【例】文件管理函数和过程的应用。本例利用文件管理的常用函 数进行文件的删除、重命名、复制和属性设置操作。 （1）新建一个Form，并添加DriveComboBox1、FileListBox1、 DirectoryListBox1和PopupMenu1组件。 第6章 文件编程 * fhfgh 文件管理函数和过程的应用 （2）设置文件重命名对话框，添加一个Form，其Name属性值为 Form2，并添加三个Label组件，两个Button组件和一个Edit 组件。 （3）设置文件删