Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

Переменные   Найти похожие ветки 

← →
eugene_jin_t   (2003-01-09 11:05) [0]

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

---

← →
Виктор Щербаков ©   (2003-01-09 11:13) [1]

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

---

← →
bak ©   (2003-01-09 11:20) [2]

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

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

:);):):) :P

---

← →
KSergey ©   (2003-01-09 12:42) [3]

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

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

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

---

← →
MsGuns ©   (2003-01-09 12:49) [4]

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c