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

關於使用FindFirst問題

缺席
Cliverhzk
一般會員


發表:1
回覆:1
積分:0
註冊:2007-09-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-12-29 11:55:19 IP:60.249.xxx.xxx 訂閱
各位先進好:
小弟在使用FindFirst指令,去尋找特定資料夾檔案時,
遇到只能在C: 或者是 D: 才能找到想要的檔案,
若在加上一層則就沒動作,不知是哪個地方有問題?
已爬過文可是都沒找到想要的答案,
懇請各位先進是否能解答,感謝
在此附上程式碼:


[code cpp]
void __fastcall TForm1::Button4Click(TObject *Sender)
{
String Dir;
String FileName;
String str1;
String strImgFile;
TSearchRec SearchRec;
TSysCharSet sepChars;
int iAttributes = 0;
iAttributes |= faAnyFile * true;
//偵測 d:\ 底下有無 *.bmp 這個類型的檔案
//有的話則收集到 TempList 這個區域物件中 , 用完即釋放掉

Dir=("D:\\");
TStringList *TempList = new TStringList; // declare the list
try
{
//use the string list
TempList->Clear();
//搜集 *.bmp
if (FindFirst(Dir "*.bmp", iAttributes, SearchRec) == 0)
{
do
{
if ((SearchRec.Attr & iAttributes) == SearchRec.Attr)
{
TempList->Add(SearchRec.Name);
ShowMessage(SearchRec.Name);
// 檔名判別位置座標
TStringList *strList = new TStringList(); // 利用TString 拆標題
str1 = SearchRec.Name;
sepChars = TSysCharSet() << '#'<< '.'; // '#'切標題,'.'切副檔名
ExtractStrings(sepChars, sepChars, str1.c_str(), strList);
ShowMessage(strList->GetText());
delete strList;
}
}
while (FindNext(SearchRec) == 0);
FindClose(SearchRec);
}
}
}

[/code]

編輯記錄
Cliverhzk 重新編輯於 2010-12-28 20:56:58, 註解 無‧
Cliverhzk 重新編輯於 2010-12-28 20:57:58, 註解 無‧
Cliverhzk 重新編輯於 2010-12-28 20:58:21, 註解 無‧
Cliverhzk 重新編輯於 2010-12-28 20:58:55, 註解 無‧
Cliverhzk
一般會員


發表:1
回覆:1
積分:0
註冊:2007-09-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-12-29 15:03:34 IP:60.249.xxx.xxx 訂閱
已解決,程式本身無問題,感謝各位先進
系統時間:2017-10-21 12:44:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!