Массив типа TImage

← →
kirilllius (2004-11-01 13:28) [0]

Мастера, подскажите ответ на вот какой вопрос.

У меня на форме лежат 10 объектов Image. Возможно ли создать массив из 10 элементов типа TImage и запихать в него эти 10 объектов Image? А затем обращаться к ним по номеру элемента массива. Если можно на примере.

Заранее благодарю.

У меня есть вот такой код

procedure TfrmThumbNail.FailLoad;

procedure LoadFail(Image:TImage);
begin
Image.Picture.LoadFromFile(…);
TJPEGImage(Image.Picture.Graphic).Scale:=jsEighth;
end;

begin
.
.
.
LoadFail(Image1);
.
.
.
LoadFail(Image2);
.
.
.
LoadFail(Image3);
.
.
.
LoadFail(Image4);
end;

А я хочу сделать так

procedure TfrmThumbNail.FailLoad;

procedure LoadFail(Image:TImage);
begin
Image.Picture.LoadFromFile(…);
TJPEGImage(Image.Picture.Graphic).Scale:=jsEighth;
end;

var i:Word;
begin
i:=0;
while i<10 do begin
.
.
.
LoadFail(Image[i]); //где Image массив изображений
Inc(i);
end;
end;

← →
clickmaker © (2004-11-01 13:31) [1]

> Возможно ли создать массив из 10 элементов типа TImage

Возможно.
Но можно еще и так
for i := 0 to ControlCount-1 do begin
if (Controls[i]) is TImage) then TImage(Controls[i]).LoadFromFile
end;

или заведи св-во на форме
property Images[Index: integer]: TImage read GetImage;

что должно быть в GetImage, думаю, сам догадаешься, исходя из вышенаписанного

← →
kirilllius (2004-11-01 13:47) [2]

>clickmaker
Спасибо, попробую.

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