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

FileListBox 選擇多個檔案的應用 !!

答題得分者是:hagar
UB
一般會員


發表:18
回覆:19
積分:7
註冊:2007-02-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-03-16 00:10:34 IP:211.76.xxx.xxx 訂閱
各位大大 ~
小弟有個新手問題,我用了 DirectoryListBox 和 FileListBox 把某一個目錄的檔案全部列出來了,然後我把
FileListBox 的 MultiSelect 設定成 True ,也就是說如果我按 shift 或者 ctrl 就可以選擇多個檔案,現在問題就是我怎麼把選擇的全部檔案放到一個 StringList 或者 array 或者 memo 裡面,這樣子我才可以將每個選擇的檔案,一個一個的全部處理過 ~

Ps.我是使用Delphi 7 的 ~
danny
版主


發表:100
回覆:522
積分:595
註冊:2002-03-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-03-16 11:18:07 IP:211.76.xxx.xxx 訂閱
FileListBox1.Items 就是 TStrings
可以用 StringList.assign(FileListBox1.Items) 取得

===================引 用 文 章===================
各位大大 ~
小弟有個新手問題,我用了 DirectoryListBox 和 FileListBox 把某一個目錄的檔案全部列出來了,然後我把
FileListBox 的 MultiSelect 設定成 True ,也就是說如果我按 shift 或者 ctrl 就可以選擇多個檔案,現在問題就是我怎麼把選擇的全部檔案放到一個 StringList 或者 array 或者 memo 裡面,這樣子我才可以將每個選擇的檔案,一個一個的全部處理過 ~?

Ps.我是使用Delphi 7 的 ~
------
將問題盡快結案也是一種禮貌!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-03-16 16:05:57 IP:59.124.xxx.xxx 未訂閱
var
i: integer;
begin
for i := 0 to FilstListBox1.Items.Count - 1 do
begin
if FileListox1.Selected[i] then
Memo1.Lines.Add(FileListBox1.Items.Strings[i]);
end;
end;
UB
一般會員


發表:18
回覆:19
積分:7
註冊:2007-02-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-03-16 17:16:40 IP:211.76.xxx.xxx 訂閱
呵 ~ 感謝兩位大大,我使用 Danny 的方法基本上會把整個 FileListBox 的全部檔案(包括未選取的)整個抓到 TStringList 裡面,而 hagar 的方法比較符合我的需求(只有把使用者選取的檔案抓到memo裡面),因此我把最佳解答給了 hagar 。
謝謝兩位大大的幫忙 ~
系統時間:2024-04-28 18:57:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!