中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

溫馨提示×

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

小億
286
2024-01-08 17:30:25
欄目: 編程語言

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

0
依安县| 靖江市| 潜山县| 西林县| 永福县| 会昌县| 怀仁县| 贡觉县| 建平县| 宁明县| 额济纳旗| 云浮市| 房产| 苏尼特右旗| 中方县| 同心县| 承德县| 博爱县| 罗源县| 开江县| 都匀市| 蓝田县| 尉犁县| 澄江县| 永福县| 平潭县| 辽中县| 宜兰市| 观塘区| 镇康县| 萍乡市| 历史| 油尖旺区| 津市市| 新民市| 井陉县| 革吉县| 巴彦淖尔市| 澄迈县| 浪卡子县| 乐清市|