изменение в списке переменных

← →
CoTr (2007-06-16 16:25) [0]

На форме имеются Image1..Image100 :TImage. Как мне в цикле заполнить их canvas картинками?
Спасибо

← →
Johnmen © (2007-06-16 16:30) [1]

1. for i:=1 to 100
2. "Image"+i
3. FindComponent

← →
Desdechado © (2007-06-16 16:33) [2]

Может, проще работать с
a: array[1..100] of Timage
Хотя можно и через Components добраться

← →
CoTr (2007-06-16 16:43) [3]

Спасибо, сделал так:

for n := 0 to 99 do
begin
Rect1 := Rect(WidthChar*n,0,WidthChar*(n+1),53);

jpn_char.Canvas.CopyRect(Rect2,Hiragana.Canvas,Rect1);
with TImage(FindComponent("Image"+IntToStr(n+1))) do
Canvas.Draw(0,0,jpn_char);
end;

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