Delphi繼承了Object Pascal的文件管理功能,並有很大的發展,其中最主要的是提供了用於文件管理的標准控件,同時也提供了更多的文件管理函數。利用Delphi的強大功能,開發一個自己的文件管理系統就成為很容易的事。
本章首先介紹Delphi文件管理的基本概念和標准過程/函數,並提供了一個記錄文件的應用實例,這是從我們實際課題開發中提取出來的。而後介紹Delphi提供的文件控件的使用方法。最後提供的一個綜合例程MDI文件管理器則是對Delphi文件管理功能的綜合應用。
6.1 文件類型和標准過程
Delphi同Object Pascal一樣支持三種文件類型,即:文本文件、記錄文件、無類型文件。
6.1.1文本文件
文本文件類型的變量用如下方法聲明:
var
TextFileVar: Text ;
文本文件是以行為單位進行讀、寫操作的。由於每一行長度不一定相同,不能計算出給定行在文件中的確切位置,因而只能順序地讀寫。而且文本文件只能單獨為讀或寫而打開,在一個打開的文本文件上同時進行讀、寫操作是不允許的。
6.1.1.1 文本文件的打開、關閉
文本文件的打開需要兩個步驟:(1). 文件變量與文件名關聯;(2). 初始化讀寫。
聯文件變量與文件名調用AssignFile標准過程:
AssignFile ( TextFileVar , FileName ) ;
FileName 既可以是全路徑名,也可以僅是文件名。對於後者系統將在當前目錄下查找。
AssignFile是Delphi新提供的一個函數,其功能等價於Object Pascal中的Assign。而Assign在Delphi中更多地被用作一個方法名。
初始化讀寫有三種方式:
1. Reset : 為讀打開文件並把文件指針移動到文件首;
2. Rewrite : 為寫創建一個新文件;
3. Append : 為寫打開存在的文件並把文件指針定位在文件尾。
當使用Reset或Append過程而文件不存在時將會引發一個I/O異常。有關I/O異常的處理請參看本章例程和第十二章中的介紹。
文件的關閉很簡單,只須調用CloseFile過程即可。
雖然Delphi應用程序在退出時會自動關閉所有打開的文件,但自己動手關閉文件可以確保釋放文件句柄,並使程序的可移植性增強。
為保持兼容,Delphi也允許用戶用Assign建立關聯,Close關閉文件。
6.1.1.2 文本文件的讀寫
< div>