亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

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
南部县| 宜川县| 隆昌县| 陈巴尔虎旗| 都兰县| 平乡县| 建平县| 盈江县| 株洲市| 启东市| 浪卡子县| 武邑县| 普安县| 遂溪县| 澜沧| 宜兴市| 兖州市| 垫江县| 沙田区| 武川县| 塔河县| 枝江市| 新密市| 惠来县| 高要市| 祁门县| 新乡县| 锦州市| 邢台县| 黄大仙区| 汉阴县| 河源市| 龙南县| 辽宁省| 保德县| 醴陵市| 共和县| 焦作市| 时尚| 南平市| 达尔|