《Delphi实用教程》PPT课件

《《Delphi实用教程》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi实用教程第6章文件编程第6章文件编程6.1文件和目录管理组件在Delphi7中，用于文件和目录管理的组件，除保留了Win31类的组件FilelistBox、DriveComboBox、DierctoryListBox外，还增加了Samples类的组件ShellTreeView、ShellComboBox、ShellListView。组件面板的Win31选项卡组件面板的Sample选项卡第6章文件编程6.1文件和目录管理组件DirectoryListBox组件DirectoryListBox组件可以对树形结构的文

2、件路径进行浏览，主要属性有：(1)PopupMenu：指出对文件或文件夹操作的快捷菜单的名称。(2)FileList：指定FileListBox的名称，当文件路径发生改变时，文件列表也发生相应的变化。2.DirveComboBox组件DirveComboBox组件可指定驱动器的列表，用于选择当前驱动器，主要属性有：(1)DirList：指定目录列表组件DirectoryListBox的名称。(2)PopupMenu：指出驱动器操作的快捷菜单的名称。3.FileListBox组件FileListBox是文本列表框，主要用于显

3、示当前目录中的文件和选中当前文件。它有一个属性PopupMenu，用于指出驱动器操作的快捷菜单的名称。第6章文件编程6.1文件和目录管理组件4.ShellTreeView组件ShellTreeView组件可以通过树形结构实现对路径浏览的功能，下面对该组件的常用属性。(1)Root属性用于设置组件的根目录。在ObjectInspector上双击这个属性将弹出路径选择对话框。在路径选择对话框中，如果选择UseStandardFolder单选框，则有如表路径取值：在路径选择对话框中，如果选择UsePath单选框，则可以直接在文本

4、框中输入路径，或者通过单击右边的按钮弹出浏览文件夹对话框进行路径选择。第6章文件编程6.1文件和目录管理组件(2)PopupMenu属性树形文件或文件夹上单击鼠标右键时，为其指定为自定义的弹出式菜单。(3)ShellComboBox属性ShellComboBox属性可指定与本组件相关联的ShellComboBox组件名。这时当ShellComboBox组件所指定的位置发生改变时，其内容相应地发生变化。(4)ShellListView属性ShellListView属性可以指定与该组件相关联的ShellListView组件名。

5、第6章文件编程6.1文件和目录管理组件5.ShellComboBox组件ShellComboBox组件可以在单击其右边的向下箭头后弹出一个路径选择的窗口。该组件的常用属性如下：(1)Root属性Root属性用于设置组件的根目录。当ShellComboBox组件和ShellListView组件关联起来以后，系统会保证两个组件的Root属性相同。(2)ShellTreeView属性ShellTreeView属性可以指定本组件相关联的ShellTreeView组件。(3)ShellListView属性ShellListView属

6、性以指定本组件相关联的ShellListView组件。第6章文件编程6.1文件和目录管理组件6.ShellListView组件ShellListView组件用于实现在窗口中对文件或文件夹进行浏览，有以下属性：(1)Root属性用于设置组件的根目录，即指定所浏览的根目录。(2)ShellTreeView属性指定本组件相关联的ShellTreeView组件。(3)ShellComboBox属性用以指定本组件相关联的ShellComboBox组件。第6章文件编程利用相关的组件设计一个文件管理器【例】利用相关的组件设计一个文件管理

7、器（1）新建一个项目，并向窗体中添加一个ShellComboBox组件、一个ShellTreeView组件和一个ShellListView组件。（2）按表设置上述三个组件的属性。ShellComboBox组件属性ShellTreeView组件属性ShellListView组件属性第6章文件编程利用相关的组件设计一个文件管理器（3）运行程序，程序的运行结果如图所示。简单的文件管理器第6章文件编程6.2文件管理相关的函数和过程RenameFile函数RenameFile函数用于改变文件的名称。▲语法：FunctionRenam

8、eFile（constoldName，NewName:string）:Boolean；例如：如果要将磁盘C根目录上的一个叫“abc.tmp”的文件更名为“abc.doc”，可以使用下面的代码：ifnotRenameFile('c:abc.tmp','c:abc.doc')thenShowMessag