91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

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
本溪市| 龙泉市| 沿河| 策勒县| 连州市| 兴文县| 安乡县| 射阳县| 屯门区| 南平市| 沐川县| 长武县| 新巴尔虎左旗| 托克托县| 河池市| 普安县| 丹寨县| 额敏县| 彭水| 清水河县| 辉南县| 苏尼特右旗| 邯郸县| 新竹市| 东港市| 嘉黎县| 商城县| 突泉县| 海晏县| 樟树市| 卢龙县| 江油市| 巴林左旗| 丹棱县| 呼伦贝尔市| 库车县| 十堰市| 保德县| 南靖县| 丹巴县| 黔南|