[hike38]

Помогите описать процедуру выбора наугад из заданой папки файла (графического). Заранее благодарен

[Zander_driver]

1. составляешь список всех графических файлов в папке (всех файлов с заданными расширениями)
2. генеришь случайное число и выбираешь из списка файл, номер которого в списке совпадает с выпавшим случайным.

[Burka]

Вот даже код составления списка файлов, правда только в одной папке.

Код:

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;

[hike38]

Спасибо большое, все получилось