[poli-smen]

Сообщение от alexusankov

Здравствуйте, уважаемые форумчане. К сожалению, не учился на программиста, поэтому такие вещи, как блок-схема и алгоритм вызывают затруднение. Есть 2 вопроса, простой и сложнее) :
1. Есть код, например :
image1.canvas.pen.color := clRed;
image2.canvas.pen.color := clRed;
...
image116.canvas.pen.color := clRed;
- сто двадцать раз повторять как бы не торт, возможно же как то оформить в цикл?

Код:

var
  i: Integer;
begin
  for i := 1 to 116 do
  begin
    (FindComponent('image'+IntToStr(i)) as TImage).Canvas.Pen.Color := clRed;
  end;
end;

p.s. Откуда столько картинок на форме? Вручную бросал что-ли?