Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

Помогите написать   Найти похожие ветки 

← →
>>DEATH<<   (2007-04-10 06:03) [0]

помогите написать процедуру она должна сканировать папку images и грузить все *.bmp в массив tBitmap..в принципе как грузить я знаю но как папку просканировать не знаю..

---

← →
homm ©   (2007-04-10 06:30) [1]

FindFirstFile, FindNextFile

---

← →
Calibr ©   (2007-04-10 12:05) [2]

var
 sr: TSearchRec;
...

if FindFirst(<путь> + "*.bmp", faAnyFile, sr) = 0 then
repeat
 Bitmap.loadFromFile(<путь> + sr.Name);//ну Bitmap естественно должен быть    
                                                      //инициализирован заранее
until FindNext(sr) <> 0;

FindClose(sr);

---

← →
{RASkov}   (2007-04-10 12:16) [3]

> [2] Calibr ©   (10.04.07 12:05)

Не удачный пример....в один битмап кучу раз "загрузятся" картинки.... :)

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.176 c