Delphi获取文件大小的两种方法

在Delphi中,获取文件大小是常见的需求。以下是两种方法来实现这一功能。

使用 TFile.GetSize 方法

首先,确保引入 System.IOUtils 单元:

uses System.IOUtils;

接下来,使用 TFile.GetSize 方法获取文件大小。假设文件路径为 FilePath,代码如下:

var
  FileSize: Int64;
begin
  FileSize := TFile.GetSize(FilePath);  // 获取文件大小,以字节为单位
end;

TFile.GetSize 返回一个 Int64 类型的文件大小(字节数)。如果文件不存在,将抛出 EFOpenError 异常。因此,建议使用异常处理:

try
  FileSize := TFile.GetSize(FilePath);
except
  on E: Exception do
    ShowMessage('错误:' + E.Message);
end;

使用 TFileInfo 类获取更详细信息

除了文件大小,TFileInfo 类还可以获取其他文件属性,如创建时间、修改时间等。以下是使用 TFileInfo 获取文件大小的示例:

var
  FileInfo: TFileInfo;
  FileSize: Int64;
begin
  FileInfo := TFileInfo.Create(FilePath);
  try
    FileSize := FileInfo.Size;  // 获取文件大小
    // 还可以访问 CreationTime, ModificationTime 等属性
  finally
    FileInfo.Free;
  end;
end;

总结

在Delphi中,使用 TFile.GetSize 方法或 TFileInfo 类可以轻松获取文件大小及其他详细信息。使用这些方法时,应确保正确处理异常和资源管理,从而提高代码的稳定性和可靠性。

rar 文件大小:208.42KB