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

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

Переменные

eugene_jin_t ©   (2003-01-09 11:05:00) 

Пусть есть 30 переменных типа TBitmap. Каким образом через цикл изменить всем этим переменным какое-нибудь свойство?

---

Набережных С.   (2003-01-09 15:16:00) [1]

>MsGuns © (09.01.03 12:49)
Круто! :)))

---

MsGuns   (2003-01-09 12:49:00) [2]

for i :=0 to Form1.Components.Count-1 do
if Form1.Components[i].ClassType=TBitMap then
with TBitMap(Form1.Components[i]) do
begin
...
end;

---

KSergey   (2003-01-09 12:42:00) [3]

Надо слегка модифицировать исходный текст и все станет ясно:

Пусть есть массив на 30 элементов типа TBitmap. ...

И далее по тексту.

---

bak   (2003-01-09 11:20:00) [4]

var BmpArr: array[1..30] of TBitMap;

for i:=1 to 30 do
BmpArr[i].Width:= 100;

:);):):) :P

---

Виктор Щербаков   (2003-01-09 11:13:00) [5]

а как объявлены переменные?

---

Наверх