Как сделать индекс у объекта TImage переменной??

← →
Raul © (2006-04-01 14:08) [0]

Привет, проблема у меня вот в чем: есть некая переменная X:integer
а также image1,image2,image3,image4:TImage
Мне нужно, чтобы image1.picture присваивалось значение в зависимости от значения переменной X , то есть если Х=2, то image1.picture:=image2.picture, при Х=3 image1.picture:=image3.picture
И так далее. Пожалуйста, подскажите, как оеализовать!

← →
Leonid Troyanovsky © (2006-04-01 14:12) [1]

> Raul © (01.04.06 14:08)

> а также image1,image2,image3,image4:TImage

Images: array [1..4] of TImage?

--
Regards, LVT.

← →
Бугага © (2006-04-01 14:27) [2]

Вариант 1:
case X of
1: image1.picture := image1.picture;
2: image1.picture := image2.picture;
3: image1.picture := image3.picture;
end;

Вариант 2:
Использовать ImageList и ImageIndex

> Вариант 2:
> Использовать ImageList и ImageIndex

Вариант 3
i:=1 ;
with FindComponent("Image"+intToStr(i)) as TImage do
picture:=нужна я картинка для i

Как сделать индекс у объекта TImage переменной?? Найти похожие ветки