delphi 7文件、磁盘操作常用函数

关注

原创最新推荐文章于 2026-02-20 00:29:15 发布 1.6k 阅读 AI 写同款· GEO 优化 ›

Delphi 获取指定分区磁盘总空间（容量）.rar Delphi 获取指定磁盘分区（盘符）磁盘容量，或者空间大小，主要是使用DiskSize，把DiskSize获取到的数据进行转换，得出KB或GB，本代码主要是对磁盘容量大小的转换，让人更直观的了解到磁盘分区的大校转换过程如下：　　begin 　　 c := ord(DriveComboBox1.Drive); 　　 c := c-96; 　　 Ispare := DiskSize(c)/1024; 　　 SDir := 'KB'; 　　 if Ispare/1024>=1 then 　　 begin 　　 Ispare := Ispare/1024; 　　 SDir := 'MB'; 　　 if Ispare/1024>=1 then 　　 begin 　　 Ispare := Ispare/1024; 　　 SDir := 'G'; 　　 end; 　　 end; 　　 S := FormatFloat('0.0',Ispare); 　　 Edit1.Text := S SDir; 　　end; 立即下载

1.Append
　　功能说明：追加内容到文件中。文件必须要存在。
　　参考实例：
　　var
　　　S: String;
　　　F: TextFile;
　　begin
　　　S := 'This is a book.';
　　AssignFile(F, 'C:\MyFile.txt');    // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　　Append(F);                // 以追加的方式打开文件
　　　Writeln(F, S);              // 将S变量中的内容追加到文本尾后。
　　　CloseFile(F);             // 关闭文件
　　end;

2.AssignFile
　　功能说明：与指定的文件建立连接。
　　参考实例：
　　var
　　　F: TextFile; // 声明文本文件类型变量
　　begin
　　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　end;

3.ChDir
　　功能说明：改变当前目录(文件夹)。
　　参考实例：
　　var
　　　sDir: String;
　　begin
　　　sDir := 'C:\Windows';
　　　ChDir(sDir); // 此时，系统的当前目录则为C:\Windows目录。
　　end;

4.CloseFile
　　功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。
　　参考实例：
　　var
　　　S: String;
　　　AllText: String;
　　　F: TextFile;
　　begin
　　AssignFile(F, 'C:\MyFile.txt');    // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　　Reset(F);                  // 打开文件
　　　while not EOF(F) do begin   // 使用While循环，一直判断是否到了文件未尾
　　　Readln(F, S);              // 读取一行文本
　　　AllText := AllText + S;
　　　end;
　　　CloseFile(F);              // 关闭文件
　　end;

5.DeleteFile
　　功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。
　　参考实例：
　　var
　　　IsOK: Boolean; // 用于保存删除状态
　　begin
　　　IsOK := DeleteFile('C:\My Documents\Index.html'); // 函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。
　　　if IsOK then ShowMessage('文件删除成功！')
　　　else ShowMessage('文件删除失败！');
　　end;

6.DirectoryExists
　　功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。
　　参考实例：
　　var
　　　IsExists: Boolean;
　　begin
　　　IsExists := DirectoryExists ('C:\Windows');
　　　if IsExists then ShowMessage('Windows文件夹存在！')
　　　else ShowMessage('Windows文件夹不存在！');

　　end;

7.DiskFree
　　功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
　　参考实例：
　　var
　　　FreeSize: Int64;
　　begin
　　　FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。
　　end;

8.DiskSize
　　功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
　　参考实例：
　　var
　　　DiskSize: Int64;
　　begin
　　　DiskSize:= DiskSize(3); // 获取C盘的空间。返回的值是以“字节”为单位的。
　　end;

9.EOF
　　功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。
　　参考实例：
　　var
　　　S: String;
　　　AllText: String;
　　　F: TextFile;
　　begin
　　AssignFile(F, 'C:\MyFile.txt');     // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　　Reset(F);                   // 打开文件
　　　while not EOF(F) do begin    // 使用While循环，一直判断是否到了文件未尾
　　　　Readln(F, S);             // 读取一行文本
　　　　AllText := AllText + S;
　　　end;
　　end;

10.Erase
　　功能说明：删除文件。
　　参考实例：
　　var
　　　F: File;
　　begin
　　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;