如何可以讓ComboBox顯示某個位址下的所有檔案名稱 |
|
尚未結案
|
|
TIY~2
一般會員   發表：26 回覆：37 積分：22 註冊：2003-08-07 發送簡訊給我 |
|
|
gemi0305
版主  發表：81 回覆：564 積分：629 註冊：2003-05-11 發送簡訊給我 |
參考以下範例，
在form上加入一edit、一button和一combobox，再加入程式:
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Edit1->Text="c:\\";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Directory;
Directory = Edit1->Text; char CopyDir[1000]; strcpy(CopyDir, Directory.c_str());
WIN32_FIND_DATA Data; char Name[1000];
lstrcpy(Name, CopyDir);
lstrcat(Name, "*.*");
HANDLE hFile = FindFirstFile(Name, &Data);
bool Res = true;
bool FirstFile = true;
if (hFile != INVALID_HANDLE_VALUE)
{
while (Res)
{
if (!(Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
{
if (FirstFile)
{ ComboBox1->Items->Add(Data.cFileName);
FirstFile = false;
}
else
ComboBox1->Items->Add(Data.cFileName); }
Res = FindNextFile(hFile, &Data);
Application->ProcessMessages();
}
}
} |
|
TIY~2
一般會員 發表：26 回覆：37 積分：22 註冊：2003-08-07 發送簡訊給我 |
|
|
TIY~2
一般會員 發表：26 回覆：37 積分：22 註冊：2003-08-07 發送簡訊給我 |
謝謝剛剛自己亂用就成功了!!
所以我把程式縮減了一下!!
省點一些繁雜的部分
char *Name = ".\\Path1\\*.*"; //設定列出路徑位址 簡化輸入 WIN32_FIND_DATA Data; HANDLE hFile = FindFirstFile(Name, &Data);
bool Res = true;
bool FirstFile = true;
if (hFile != INVALID_HANDLE_VALUE)
{
while (Res)
{
if (!(Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
{
if (FirstFile)
{
CB_LoadSample->Items->Add(Data.cFileName);
FirstFile = false;
}
else
CB_LoadSample->Items->Add(Data.cFileName); }
Res = FindNextFile(hFile, &Data);
Application->ProcessMessages();
}
}
|
發表時間：2003-09-29 10:13:35
IP:218.162.xxx.xxx 未訂閱
系統時間：2024-05-04 0:29:15
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |