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

在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：查找目錄中的文件?？梢允褂猛ㄅ浞M行模式匹配。

    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中進行文件和目錄操作的基本功能。您可以根據實際需求選擇合適的函數來使用。