| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с несколькими объектами [D7, XP]

Legolas ©   (2007-01-28 19:39:00) 

Помогите пожалуйста, как можно задать какие-нибудь параметры нескольким  объектам через цикл? (К примеру загрузить одну и туже картинку в Image1, Image2...до Image25)

---

Olivetti   (2007-01-28 19:43:00) [1]

var
 i: integer;
 Img: TImage;
begin
 for i := 1 to 25 do
 begin
   Img := TImage(FindComponent('Image' + IntToStr(i)));
   if (Img <> nil) then
     Img.Picture.LoadFromFile('picture.bmp');
 end;
end;

---

Наверх