Здравствуйте!
Столкнулся со следующей проблемой. Есть три компонента 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. Программу пишу для себя, по образованию не программист, поэтому, по возможности, прошу объяснить на каком-нибудь примере.