Как в массив засунуть картинки?

← →
MZP (2008-01-16 18:18) [0]

Всем здрасте! Подскажите пожалуйста, как в массив можно засунуть изображения?

← →
Германн © (2008-01-16 18:19) [1]

> MZP (16.01.08 18:18)
>
> Всем здрасте! Подскажите пожалуйста, как в массив можно
> засунуть изображения?
>

В какой массив?

← →
Kolan © (2008-01-16 18:20) [2]

array of TBitmap
?

← →
Правильный_Вася (2008-01-16 18:22) [3]

TImageList для этих целей существует

← →
MZP (2008-01-16 18:26) [4]

Ну в обоычный. Я пробовал просто, но мне не очень нравится:

var
array Mymassiv [1..10] of string = ("1.jpg","2.jpg","3.jpg","4.jpg","5.jpg","6.jpg","7.jpg","8.jpg","9.jpg","10.jpg ",)

здесь выводится ещё и имена файлов у меня в программе. В принципе реализовать можно. Но хочку написать программу, которая, бог знает в какой папке лежат изображения и отображать их. Т.е. например, в папке "мои изображения" лежит более 10 файлов, а в папке "мои фото" около 200 файлов.

← →
Kolan © (2008-01-16 18:32) [5]

> Т.е. например, в папке «мои изображения» лежит более 10
> файлов, а в папке «мои фото» около 200 файлов.

Ну и пробегайся по всем файлам этой «бох знает какой папки»
Ищи там картинки по расширению
Добавляй их пути TStringList
и дальше делай че шох&#133

← →
MZP (2008-01-16 18:36) [6]

т.е. ты рекомендуешь искать файлы с нужным расширением файлов функцией FindFirst, FindNext и т.д. грузить в список типа TStringList...
Кажется понял твои мысли спасибо. А подскажи пожалуйста, как их отобразить?
Тут я так понимаю0, что нужно "клонировать" компонент типа TImage. Но как тогда каждый по отдельности отображать в "клонированных" TImage"ах?
Подскажи пожалуйста!

← →
www (2008-01-16 18:40) [7]

> как их отобразить?

скопом?
например, в листбоксе с OwnerDraw

← →
Kolan © (2008-01-16 18:43) [8]

> т.е. ты рекомендуешь искать файлы с нужным расширением файлов
> функцией FindFirst, FindNext и т.д. грузить в список типа
> TStringList&#133

Да, правильно понял.

А подскажи пожалуйста, как их отобразить?
Смотря что ты хочешь, я же не телепат.

> Тут я так понимаю0, что нужно «клонировать» компонент типа
> TImage.

Можно и так&#133

> Но как тогда каждый по отдельности отображать в «клонированных»
> TImage"ах?
> Подскажи пожалуйста!

Допустим имена в Strings: TStrings.

Тогда примерно так:
for I := 0 to Strings.Count  1 do begin TempImage := TImage.Create(Form); TempImage.Parent := Form; TempImage.Left := <вычислишь>; TempImage.Top := <вычислишь>; TempImage.Width := <думаешь сам>; TempImage.Height := <думаешь сам>; TempImage.LoagFormFile(Strings[I]) end;

← →
MZP (2008-01-16 18:44) [9]

Нет скопом тупо выглядит.... кажется.
Ребята, может я неточно сформулировал вопрос :(
Я хочу понять и научиться каждый файл отображать в каждом image. Другими словами: в папке найдено 10 файлов, соответственно нужно создать 10 компонентов TImage и отобразить каждый файл.

← →
Kolan © (2008-01-16 18:45) [10]

> Ребята, может я неточно сформулировал вопрос :(

Угу.

> соответственно нужно создать 10 компонентов TImage и отобразить
> каждый файл.

См [8]

← →
Рамиль © (2008-01-16 18:47) [11]

> в папке найдено 10 файлов, соответственно нужно создать
> 10 компонентов TImage и отобразить каждый файл.

А если их найдено 10 000?

← →
MZP (2008-01-16 18:48) [12]

Kolan, большое спасибо тебе за пример! Он мне прям путь указывает куда копать дальше :). Я только немного не понял, что ты имеешь в виду под Strings? Это массив ?

← →
MZP (2008-01-16 18:50) [13]

Ну, Рамиль, сам понимаешь, никому не интересно хранить в одной папке 10000 или куда больше - 1000000000 файлов. У меня все по полочкам разложено. Потому и хочу выбирать нужную мне папку и отображать файлы в комоненте TImage.

> Strings

Прочти про абстрактный(да простят меня :) класс TStrings

> Strings

Прочти про абстрактный(да простят меня :) класс TStrings и его потомка, TStringList в справке.

Ими очень удобна пользоваться при работе со списками строк удобнее чем с массивам.

← →
MZP (2008-01-16 18:54) [16]

Аааааааа! Все понятно :) Спасибо что напомнил. Думаю что вопросов больше нет.
Тебя все простят!!! Ты помог мне и я тебя прощаю. Ты помог другим - они тебя прощают!

Ребята всем большое спасибо за оказанную помощь!
темя закрыта.

> Ну, Рамиль, сам понимаешь, никому не интересно хранить в
> одной папке 10000

Тебе указале на возможную ошибку в твоем не написанном еще приложении, а ты её игнорируешь&#133 А вариант с 10 000 картинок весьма реален&#133 Ты должен хотябы задуматься над тем, что будет в этом случае&#133

А будет попа, т.к. твоя программа выжрет огромное кол-во памяти, причем просто так ведь пользователь ни когда не увидит все 10000 фалов&#133

← →
MZP (2008-01-16 19:00) [18]

Ты прав. Тем более файлы размером около 200 кб.

> [18] MZP (16.01.08 19:00)
> Ты прав. Тем более файлы размером около 200 кб.

Поэтому можешь сначала сделать просто загрузку всего.

А потом надо научится расчитывать сколько файлов увидит пользователь, и загружать только видимые, а не видимые выгружать по мере скрола&#133
Это как вариант.

Как в массив засунуть картинки? Найти похожие ветки