TImage и массив

← →
Prov (2005-09-09 11:20) [0]

Доброе время суток, господа. Возникла следующая ситуация:
На форме есть 42 компонента TImage. Нужно каждый TImage загнать в массив. имена компонентов: Timage1, TImage2,...,TImageN.
Подскажите, пожалуйста, каким образом я могу присвоить кааждому елементу массива с 42-х елементов один из этим имеджев.
Заранее извиняюсь, может непонятно что изложил. В принципе, суть должна быть понятной.
Заранее очень благодарен за какую либо оказанную помощь.

← →
Digitman © (2005-09-09 11:44) [1]

var
ImgArray: array[1..42] of TImage;
Comp: TComponent;
s: String;
..

with MyForm do
for i := 0 to ComponentCount - 1 do
begin
Comp := Components[i];
if Comp is TImage then
begin
s := StringReplace(Comp.Name, Comp.ClassName, "", [rkReplaceAll]);
ImgArray[StrToInt(s)] := TImage(Comp);
end;

← →
Fenik © (2005-09-10 18:43) [2]

Одного-то много, а тут 42!!!
Зачем?

>Prov
Скажите, а картинки все разного размера? Можно же их, если они одного размера, в ImageList загнать. А оттуда через GetBtmap забирать нужный битмап и присваивать картинке. Это и есть общепринятый способ.

TImage и массив Найти похожие ветки