__fastcall TForm1::FillList() {
TSearchRec FoundedFile;
int r, i;
int count = 0;
int ir = 1;
char ext[3] = {'jpg', 'gif', 'png'};
for (i = 0; i < 3; i++) {
r = FindFirst(Path + "*." + ext[i], faAnyFile, FoundedFile);
ListBox1->Items->Clear();
if (r == 0) {
ListBox1->Items->Add(FoundedFile.Name);
while (FindNext(FoundedFile) == 0) {
ListBox1->Items->Add(FoundedFile.Name);
}
ListBox1->ItemIndex = 0;
String File =
String(Path + ListBox1->Items->Strings[ListBox1->ItemIndex]);
//ShowMessage(File);
Image1->Picture->LoadFromFile(File);
count = ListBox1->Items->Count;
}
}
if (ir == 0) {
return -1;
}
else {
count = ListBox1->Items->Count;
return count;
}
}
按鈕不會讀取圖片擴展數組ext [i]。 程序不顯示帶.gif,.png和.jpg擴展名的圖片。 如果沒有數組,並且只是r = FindFirst(Path +「(my extension)」,faAnyFile,FoundFile),那麼它會顯示帶有我的擴展名的圖片。圖片瀏覽器C++構建器
@VladfromMoscow:我很着急,並在平板電腦上打字。我現在修好了。 –