全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2373
推到 Plurk!
推到 Facebook!

如何傳回目錄名稱??

 
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-16 13:25:31 IP:211.22.xxx.xxx 未訂閱
請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-07-16 13:39:01 IP:211.20.xxx.xxx 未訂閱
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
ExtractFilePath(OpenDialog1.FileName) @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-07-16 13:41:09 IP:211.22.xxx.xxx 未訂閱
引言:
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
ExtractFilePath(OpenDialog1.FileName) @@~~飛翔在天際的精靈~~@@
耶............ 可是我不想讓他選到檔案 我是想讓他選到目錄就好了
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-07-16 13:49:07 IP:211.20.xxx.xxx 未訂閱
引言:
引言:
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
ExtractFilePath(OpenDialog1.FileName) @@~~飛翔在天際的精靈~~@@
耶............ 可是我不想讓他選到檔案 我是想讓他選到目錄就好了
TOpenDialog沒有辦法做到,要用其它的vcl,如rx的TDirectoryEdit @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-07-16 14:41:09 IP:192.168.xxx.xxx 未訂閱
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法??
本站不是有範例程式:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18175 ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-07-16 16:10:50 IP:211.22.xxx.xxx 未訂閱
引言:
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法??
本站不是有範例程式:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18175 ~~~Delphi K.Top討論區站長~~~
謝謝站長 完全可以了 請問SHGetMalloc 有說明[Now Supported on Windows NT] 是指本來在NT不能用,現在能用了?? 還是指這個函數只有NT能用,98不能用?? 又andersonhsieh兄指的元件如rx的TDirectoryEdit rx是什麼意思啊??
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-07-16 16:24:18 IP:211.20.xxx.xxx 未訂閱
引言:
引言:
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法??
本站不是有範例程式:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18175 ~~~Delphi K.Top討論區站長~~~
謝謝站長 完全可以了 請問SHGetMalloc 有說明[Now Supported on Windows NT] 是指本來在NT不能用,現在能用了?? 還是指這個函數只有NT能用,98不能用?? 又andersonhsieh兄指的元件如rx的TDirectoryEdit rx是什麼意思啊??
RX是指一套免費的元件組,可上 http://www.rxlib.com 去抓 @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-07-16 16:34:42 IP:61.219.xxx.xxx 未訂閱
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
可以用 selectDirectory (須uses FileCtrl)
    var dir:string;
begin
  Dir := 'C:\';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    showmessage(dir);
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#9 引用回覆 回覆 發表時間:2002-07-16 16:49:15 IP:211.22.xxx.xxx 未訂閱
引言:
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
可以用 selectDirectory (須uses FileCtrl)
    var dir:string;
begin
  Dir := 'C:\';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    showmessage(dir);
呀呼 謝謝ccchen兄 這個方法很簡潔 但他找不到網路芳鄰 是美中不足的地方
paul
初階會員


發表:8
回覆:82
積分:28
註冊:2002-04-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2002-07-16 16:58:52 IP:203.204.xxx.xxx 未訂閱
用 DirectoryListBox1 元件(在 Win3.1模組內) procedure TForm1.DirectoryListBox1Change(Sender: TObject); begin Edit1.Text:=DirectoryListBox1.Directory; Edit1.Update; end; 這樣不是可取得目錄嗎? 還是我會錯意了?
jck1
一般會員


發表:53
回覆:67
積分:24
註冊:2002-05-23

發送簡訊給我
#11 引用回覆 回覆 發表時間:2002-07-16 17:10:51 IP:211.22.xxx.xxx 未訂閱
引言: 用 DirectoryListBox1 元件(在 Win3.1模組內) procedure TForm1.DirectoryListBox1Change(Sender: TObject); begin Edit1.Text:=DirectoryListBox1.Directory; Edit1.Update; end; 這樣不是可取得目錄嗎? 還是我會錯意了?
啊 paul兄的方法也不錯 不過好像也看不到網芳 而且也比較佔空間 :) 大家都說perl是一種There's More Than One Way To Do It 的語言 看來Delphi也是如此啊 :)
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#12 引用回覆 回覆 發表時間:2002-07-16 18:38:31 IP:203.217.xxx.xxx 未訂閱
引言:
引言:
引言: 請問OpenDialog有辦法傳回目錄名稱嗎? 試了一下好像只有辦法傳回檔名 不知有無其他方法?? 謝謝!!
可以用 selectDirectory (須uses FileCtrl)
    var dir:string;
begin
  Dir := 'C:\';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
    showmessage(dir);
呀呼 謝謝ccchen兄 這個方法很簡潔 但他找不到網路芳鄰 是美中不足的地方
用另一overload即可 if SelectDirectory('挑選目錄','',dir) then
paul
初階會員


發表:8
回覆:82
積分:28
註冊:2002-04-14

發送簡訊給我
#13 引用回覆 回覆 發表時間:2002-07-16 19:54:41 IP:203.204.xxx.xxx 未訂閱
嗯! 答案已出!
taoan
一般會員


發表:2
回覆:2
積分:0
註冊:2002-07-01

發送簡訊給我
#14 引用回覆 回覆 發表時間:2002-11-26 18:31:15 IP:61.222.xxx.xxx 未訂閱
請問RX的下載地方可以告知嗎 我找其連結找不到 另外站長可以請問一下你的範例程式 我下載下來後用delphi 7無法compile 是否需要有哪些元件需要一起下載的嗎
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#15 引用回覆 回覆 發表時間:2002-11-26 21:32:22 IP:192.168.xxx.xxx 未訂閱
引言: 另外站長可以請問一下你的範例程式 我下載下來後用delphi 7無法compile 是否需要有哪些元件需要一起下載的嗎
可否把Compile的錯誤訊息列出? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
smu
一般會員


發表:6
回覆:10
積分:3
註冊:2002-12-04

發送簡訊給我
#16 引用回覆 回覆 發表時間:2002-12-12 19:03:21 IP:210.59.xxx.xxx 未訂閱
請問站長 你的範例程式我下載後 出現問題找不到ShellExecute 出現狀況:"Undeclared identifier: 'ShellExecute' 是否要再uses其他unit?? 謝謝! 迷糊中的初學者 @_@
系統時間:2024-05-05 19:21:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!