请教个遍历图片的问题
大家好请问下我想实现2个button点1个换下张图,点另外一个button换上一张图,我现在实现了换下一张图,换上一张图不太明白怎么弄
TSearchRec sr; AnsiString PathString = sFile +"*.jpg"; FileNameList = new TStringList(); if (FindFirst(PathString, 0, sr) == 0) { do { if ( (sr.Name!=".") && (sr.Name!="..") ) { FileNameList->Add(sr.Name); } } while (FindNext(sr) == 0); } FindClose(sr);void __fastcall TForm1::btn1Click(TObject *Sender){ if(i == FileNameList->Count){ i=0;}if(i<FileNameList->Count){ img1->Picture->LoadFromFile(sFile+FileNameList->Strings[i]); i++;}}