Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2007, 16:22   #1
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
Лампочка Выполнение действия с компонентами в цикле

Вопрос 2

таааак, писать много...
Вопщем так: есть некоторое количество картинок (для примера возьму 5) под именами 1.jpg, 2.jpg, 3.jpg, 4.jpg, 5.jpg.
Есть ListBox, в котором есть надписи 1,2,3,4,5 соот..
Есть Image с соответствующими именами image1, image2, image3, image4, image5.

Загрузка одной картинки такая:

Код:
image1.Picture.LoadFromFile('image\'+list.Items.St rings[0]+'.jpg')
Как мне организовать цикл так, чтобы мне не прописывать эту команду 5 раз для каждой картинки, а индекс у image1 автоматически менялся на 2, 3, 4, 5 и соответсвенно у загружаемой картинки, название которое берется из ListBox.

Последний раз редактировалось Квэнди; 01.11.2007 в 16:26.
Ermiss вне форума Ответить с цитированием
Старый 01.11.2007, 16:26   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

За название темы в следующий раз предупреждение получите.
Ответ:
Код:
for i:=0 to form1.componencount-1 do
begin
if form1.components[i] is timage then
with form1.components[i] as timage do
begin
end;
end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 01.11.2007, 16:27   #3
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

называй темы нормально, Вопрос 2 не очень содержательное название

По теме. Есть у формы свойство Components, советую подробно с ним ознакомиться, это ключ к решению твоего вопроса.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 01.11.2007, 16:33   #4
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
По умолчанию

Цитата:
Сообщение от Квэнди Посмотреть сообщение
За название темы в следующий раз предупреждение получите.
Ответ:
for i:=0 to form1.componencount-1 do
begin
if form1.components[i] is timage then
with form1.components[i] as timage do
begin
end;
end;
Пасибо.
Буду иметь ввиду. Проста я еще новичок, а ответ надо получить вот и тороплюсь и не обращаю внимание на названия.
Еще раз пасибо!
Ermiss вне форума Ответить с цитированием
Старый 01.11.2007, 23:54   #5
Ermiss
Пользователь
 
Регистрация: 31.10.2007
Сообщений: 62
По умолчанию

Проверил ваш метод, получается.
Можно темку закрыть... проблема решена!!! Спасибы!!!
Ermiss вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выполнение действия через промежуток времени chingiz Общие вопросы Delphi 37 03.10.2012 11:33
Управление компонентами(видимыми и невидиммыми) в чужой программе(любой) Alter Win Api 21 13.05.2009 23:13
Переход между компонентами stepchild Общие вопросы Delphi 5 29.05.2008 20:07
Помощь с компонентами Less Помощь студентам 1 17.05.2007 09:06
Выполнение действия в заданное время WOWan234 Помощь студентам 6 02.05.2007 01:52