Delphi中ExtractFilePath、ParamStr以及更多文件/目录操作

avatar
作者
猴君
阅读量:3

在Delphi中,我们可以使用ExtractFilePath函数来提取文件的路径信息,使用ParamStr函数来获取命令行参数。除此之外,Delphi还提供了其他一些文件和目录操作的函数和过程,如下所示:

  1. ExtractFileName:提取文件的名称(包含扩展名)。

    FileName := ExtractFileName('C:\MyFiles\myfile.txt'); // 输出:myfile.txt 
  2. ExtractFileExt:提取文件的扩展名。

    FileExt := ExtractFileExt('C:\MyFiles\myfile.txt'); // 输出:.txt 
  3. ExtractFileDir:提取文件的父目录。

    FileDir := ExtractFileDir('C:\MyFiles\myfile.txt'); // 输出:C:\MyFiles 
  4. FileExists:检查文件是否存在。

    if FileExists('C:\MyFiles\myfile.txt') then   ShowMessage('文件存在') else   ShowMessage('文件不存在'); 
  5. DirectoryExists:检查目录是否存在。

    if DirectoryExists('C:\MyFiles') then   ShowMessage('目录存在') else   ShowMessage('目录不存在'); 
  6. CreateDir:创建目录。

    if not DirectoryExists('C:\MyFiles') then   CreateDir('C:\MyFiles'); 
  7. DeleteFile:删除文件。

    DeleteFile('C:\MyFiles\myfile.txt'); 
  8. RemoveDir:删除目录。

    RemoveDir('C:\MyFiles'); 
  9. RenameFile:重命名文件。

    RenameFile('C:\MyFiles\oldfile.txt', 'C:\MyFiles\newfile.txt'); 
  10. FindFirst / FindNext:查找目录中的文件。可以使用通配符进行模式匹配。

    var   SearchRec: TSearchRec; begin   if FindFirst('C:\MyFiles\*.txt', faAnyFile, SearchRec) = 0 then   begin     repeat       // 处理文件       ShowMessage(SearchRec.Name);     until FindNext(SearchRec) <> 0;     FindClose(SearchRec);   end; end; 

这些函数和过程提供了在Delphi中进行文件和目录操作的基本功能。您可以根据实际需求选择合适的函数来使用。

广告一刻

为您即时展示最新活动产品广告消息,让您随时掌握产品活动新动态!