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

請問我要如何知道我所讀取的檔案的檔名ㄋ

尚未結案
pilipili001
一般會員


發表:10
回覆:12
積分:4
註冊:2003-07-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-30 15:56:13 IP:219.68.xxx.xxx 未訂閱
我寫了一個連續讀取資料夾的檔案,但我要如何將我所讀取的當案之檔名,存起來ㄋ?? 以下為我的程式嗎: TStringList *txt =new TStringList(); txt->LoadFromFile("c:\\enactment.txt"); Graphics::TBitmap *Bmp = new Graphics::TBitmap(); TSearchRec SearchRec; AnsiString szDir=txt->Strings[1] "\\"; AnsiString save =txt->Strings[2] "\\"; AnsiString szFile= "*.bmp"; int iAttr=faAnyFile; int iFound=0; iFound=FindFirst(szDir "*.*", iAttr, SearchRec); while (iFound==0) { if (MatchesMask(SearchRec.Name, szFile)) { Bmp->LoadFromFile(szDir SearchRec.Name); Bmp->SaveToFile(save SearchRec.Name); DeleteFile (szDir SearchRec.Name); } iFound=FindNext(SearchRec); } FindClose(SearchRec); delete Bmp; delete txt;
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-07-31 09:37:57 IP:202.104.xxx.xxx 未訂閱
我寫了一個連續讀取資料夾的檔案,但我要如何將我所讀取的當案之檔名,存起來ㄋ?? 不懂你的意思?SearchRec.Name就是你讀取的檔案之檔名!存入如ListBox ListBox1->Items->Add();還可以Sorted,ListBox1->Items->SaveToFile(); Andy Chang
------
Andy Chang
pilipili001
一般會員


發表:10
回覆:12
積分:4
註冊:2003-07-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-07-31 23:38:41 IP:219.68.xxx.xxx 未訂閱
引言: 我寫了一個連續讀取資料夾的檔案,但我要如何將我所讀取的當案之檔名,存起來ㄋ?? 不懂你的意思?SearchRec.Name就是你讀取的檔案之檔名!存入如ListBox ListBox1->Items->Add();還可以Sorted,ListBox1->Items->SaveToFile(); Andy Chang
我試過這方法ㄌ,也試著把它存入其他ㄉ物件過, 但他會出現 Cannot convert 'TSearchRec'to 'AnsiString' ㄉ錯誤 這因該是指兩種為不同ㄉ形式吧,所以ㄊ無法放入AnsiStringㄉ格式之中 所以想請問這要如何克服ㄋ??
pilipili001
一般會員


發表:10
回覆:12
積分:4
註冊:2003-07-17

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-07-31 23:45:23 IP:219.68.xxx.xxx 未訂閱
我已經試出來ㄌ,原來TSearchRec是個結構阿!! 感謝教學阿
系統時間:2024-05-14 16:38:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!