如何判斷是目錄或是檔案(ProcessPath)

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1318
註冊時間: 2008年 11月 26日, 00:49

如何判斷是目錄或是檔案(ProcessPath)

文章 tim » 2008年 11月 28日, 12:32

請參考:
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=52168

代碼: 選擇全部

     
    uses FileCtrl... 
     
    procedure Tform1.Button1Click(Sender: TObject); 
    var 
      Drive: char; 
      DirPart, FilePart:string; 
    begin 
      ProcessPath( 'c:winntsystem', Drive, DirPart, FilePart); 
      ShowMessage(Drive);           // c 
      ShowMessage(DirPart);         // winntsystem 
      ShowMessage(FilePart);        // '' 
    end; 

其中回傳的 Drive 為磁碟代碼, 不含 : (冒號), DirPart 為路徑不含磁碟及最後的反斜線, FilePart 則為檔案的部分, 由於本 procedure 會測試最後是否為檔案, 所以若傳入資料為路徑無檔案時, 此部分則為空字串!!
多多留言, 整理文章, 把經驗累積下來.....

回覆文章