[DeOne]

Вообщем нужно сделать заливку случайных фотографий из папки, раньше делал только заливку одной фотографии.

Помогите, пожалуйста.

Представляю это так: Из папки парсятся имена картинок, записываются в переменную типа Тстринглист, а потом просто подставляются, если это так, то как спарсить имена из папки?

[angvelem]

использовать для этого FindFirst/FindNext.

[dr. F.I.N.]

Сообщение от DeOne

...то как спарсить имена из папки?

Вот тут уйма примеров аналогичного вопроса.

[DeOne]

А можешь хоть 1 пример скинуть?

[dr. F.I.N.]

Сообщение от DeOne

А можешь хоть 1 пример скинуть?

Зайди в тему по ссылке выше и скачай. Там как-минимум 2 примера!!!
А еще спроси у гугла Delphi FindFirst пример. Первая ссылка уже будет ответом на твой вопрос.

[DeOne]

i f F i n d F i r s t ( ' C : \ W I N D OWS \ * . t x t ' , f a H i d d e n + f a S y s F i l e , F ) = 0 then

Это он парсит все названия файлов из папки с форматом txt ?

[dr. F.I.N.]

Сообщение от DeOne

i f F i n d F i r s t ( ' C : \ W I N D OWS \ * . t x t ' , f a H i d d e n + f a S y s F i l e , F ) = 0 then

Это он парсит все названия файлов из папки с форматом txt ?

Простите, но я не буду боле отвечать на эти вопросы. Вы не удосужились даже прочитать указанные вам ссылки.

[DeOne]

Я отсюда читал – http://www.virun.com.ua/info/?delphi.action&id=01024

Как сделать несколько форматов файла, которые нужно парсить?

[DeOne]

Проблема решена.

Для гугла:
var files:TStrings;
......
files := TStringList.Create;
ScanDir(ExtractFilePath(ParamStr(0))+'имя папки рядом с прогой','*.*', files);
files.Delete(0);

[einstein]

Тфилелистбокс