[Egeni]

Здравствуйте!

Столкнулся со следующей проблемой. Есть три компонента Image (Image1, Image2, Image3). На каждом компоненте нужно вывести одинаковый рисунок. Пример кода:

Код:

with Image1.Canvas do
 begin
 MoveTo(xf,yf+round(m*dat[1]*(c2-1)/2));
 LineTo(xf+round(m*dat[1]*c1/3),yf);

 (много-много кода)

 end;

Проще всего скопировать всё три раза, но не хотелось бы раздувать объём кода. Можно ли в строчке with ... do менять название переменной, например, так:

Код:

for i:=1 to 3 do
with Image[i].Canvas do
 begin
 MoveTo(xf,yf+round(m*dat[1]*(c2-1)/2));
 LineTo(xf+round(m*dat[1]*c1/3),yf);

 (много-много кода)

 end;

Понятно, что в таком виде код не работает. Хотел бы узнать, возможно ли это в принципе и как это сделать.

Заранее спасибо!

P.S. Программу пишу для себя, по образованию не программист, поэтому, по возможности, прошу объяснить на каком-нибудь примере.