Работа с файлами
Кто знает как сделать следующую вещь:
надо сделать очень простенький вьювер картинок (bmp), чтоб рядом с картинкой висело две кнопочки, и по нажатию на них он переходил с следующему или предыдущему файлу в этой директории. Я так понимаю что надо сначала прочитать куда то все файлы, которые там есть, пронумеровать их как то, а потом выводить, но вот как это сделать я не понимаю.
надо сделать очень простенький вьювер картинок (bmp), чтоб рядом с картинкой висело две кнопочки, и по нажатию на них он переходил с следующему или предыдущему файлу в этой директории. Я так понимаю что надо сначала прочитать куда то все файлы, которые там есть, пронумеровать их как то, а потом выводить, но вот как это сделать я не понимаю.
Есть функция , что то типа GetFileNames (точно не помню). Получаешь все имена файлов в указанной директории. А по нажатию кнопок обновляешь картинку и всё наверное...
Имена файлов можешь загрузить один раз в TStringList с помощью FindFirst/FindNext.
Зачем все загружать сразу в память?
Поставь на форму TImage. А потом по нажатию кнопки будешь
i = (i == StringList1->Count-1) ? 0 : i+1;
fname = StringList1->Strings;
TImage1->Picture->LoadFromFile(fname);
Зачем все загружать сразу в память?
Поставь на форму TImage. А потом по нажатию кнопки будешь
i = (i == StringList1->Count-1) ? 0 : i+1;
fname = StringList1->Strings;
TImage1->Picture->LoadFromFile(fname);
Вот тебе пример поика всех файлов по маске и загрузке их ComboBox
TSearchRec SearchRec;
String patch = MAIN->CURRENT_DIR+"\\REPORT\\*.frf";
FindFirst(patch, faAnyFile, SearchRec);
ComboBox1->Items->Add(SearchRec.Name);
if(SearchRec.Name != "")
{
while(FindNext(SearchRec) == 0)
{
ComboBox1->Items->Add(SearchRec.Name);
}
}
FindClose(SearchRec);
TSearchRec SearchRec;
String patch = MAIN->CURRENT_DIR+"\\REPORT\\*.frf";
FindFirst(patch, faAnyFile, SearchRec);
ComboBox1->Items->Add(SearchRec.Name);
if(SearchRec.Name != "")
{
while(FindNext(SearchRec) == 0)
{
ComboBox1->Items->Add(SearchRec.Name);
}
}
FindClose(SearchRec);
Все, разобрался.
Всем огромное спасибо
Всем огромное спасибо