|
#1
|
|||
|
|||
Случайный выбор
Помогите описать процедуру выбора наугад из заданой папки файла (графического). Заранее благодарен
|
#2
|
||||
|
||||
1. составляешь список всех графических файлов в папке (всех файлов с заданными расширениями)
2. генеришь случайное число и выбираешь из списка файл, номер которого в списке совпадает с выпавшим случайным. |
#3
|
|||
|
|||
Вот даже код составления списка файлов, правда только в одной папке.
Код:
Var SearchRec:TSearchRec; begin ListBox1.Clear; If FindFirst(Edit1.Text+'*', faAnyFile, SearchRec)=0 then repeat ListBox1.Items.Add(SearchRec.name); {SearchRec.name - имя файла ExpandFileName(SearchRec.name) - имя файла с полным путем} until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; |
#4
|
|||
|
|||
Спасибо большое, все получилось
|