как вставит картинки TImage

← →
Shik0 (2008-08-02 18:45) [0]

провет всеем ,помагите пожалуста ,
дело так,в папке есть картинки несколько, как узнат сколько там их и после этого все картинки показат на форме (TImage).каждому картинку будит вставлено компонент TImage заранее.

← →
имя (2008-08-02 19:02) [1]

Удалено модератором

← →
Сергей М. © (2008-08-02 22:22) [2]

Примерно так:

for КаждыйКартинок in СколькоИхТам do
ВставитьОтдельныйTImageЗаранее(КаждыйКартинок, Top, Left)

← →
имя (2008-08-04 10:48) [3]

Удалено модератором

← →
Ega23 © (2008-08-04 11:02) [4]

> в папке есть картинки несколько, как узнат сколько там их
> и после этого все картинки показат на форме (TImage).каждому
> картинку будит вставлено компонент TImage заранее.

1. Определить, сколько нужных файлов в директории. Для этого пройтись по директории через FindFirst - FindNext, получить имена файлов.
2. Далее, каждый из файлов проверить на то, что это файл-картинка. Либо посмотреть расширение, либо (что более правильно) прочитать сигнатуру файла.
3. Создать на форме нужное количество экземпляров TImage
4. Загрузить в каждый изображение.

← →
имя (2008-08-04 11:06) [5]

Удалено модератором

← →
имя (2008-08-04 11:08) [6]

Удалено модератором

← →
Dennis I. Komarov © (2008-08-04 11:23) [7]

Ну не все же сразу "по полной". Чего сравниваешь продукт с "TForm и много TImage" :)

> ACDSee же грузит.

Вообще-то ACDSee создаёт базу превьюшек, поэтому первый раз грузит папку долго, зато после достаточно быстро.

> Вообще-то ACDSee создаёт базу превьюшек, поэтому первый
> раз грузит папку долго, зато после достаточно быстро.

Я же не знаю, на что у автора "заточена" программа. Я бы вообще не так делал : вывел бы файлы с поддиректориями в дерево, а на текущий установил бы превью.

> Я же не знаю, на что у автора "заточена" программа.

А телепатор тебе на что? :)

как вставит картинки TImage Найти похожие ветки