Помогите с ЦИКЛАМИ

[kl45gp]

не знаю, как в этом случае повторить shape!


for i := 1 to 5 do begin

// Вот тут надо за место ''1'' как-то подставить " i ", Я НЕ ЗНАЮ КАК!
shape1.width:=10;

end;

[Сильванович Михаил]

См.: Delphi Help -> FindComponent

[BOBAH13]

все просто

var
i: Integer;
begin
for i:= 0 to form1.ComponentCount-1 do
if (form1.Components[i].ClassName = 'TShape') then
with (form1.Components[i] as TShape) do
begin
end;
end;

[kl45gp]

А где тут shape1.width:=10;

[BOBAH13]

Вы серьезно ?

var
i: Integer;
begin
for i:= 0 to form1.ComponentCount-1 do
if (form1.Components[i].ClassName = 'TShape') then
with (form1.Components[i] as TShape) do
begin
// ТУТ !!!!
width := 10;
end;
end;

[kl45gp]

Всё понел, чёта я ступил. Но это не подойдёт, патомучто мне надо в цикле не только shape повторять, но и другие команды,так что попроще есть чёнибуть??? типа что то вроде

for :=1 to 5 do
shape[i].width:=10;
end;

[kl45gp]

КАРОЧЕ МНЕ НАДО Вот в такой строке повторить весь Shape 5 раз
if (image1.Left+5-shag_Dvigeniye_left_right < Shape2.Left+shape1.Width) and (image1.Left+5 > Shape2.Left) and (image1.Top-4>shape2.Top-image1.Height) and(image1.Top+3<shape2.Top+shape2. Height)

[SERG1980]

Делай тогда массив компонентов TShape и Обращайся к i ому элементу как к элементу массива

[kl45gp]

А пример не покажиш?

[Shuraken]

Для первого случая

for i := 1 to 5 do
TShape(FindComponent('Shape' + IntToStr(i))).Width := 10;