Как объединить объкты TShape

[max404]

Возможно ли объединить объкты TShape, что бы при проверке одного параметра проверялись все Шейпы?

[spamer]

Конкретней опишите что именно Вам надо.
p.s Объединить.....ну можно и массив TShape'пов создать.

[max404]

Есть 30 Шейпов. Идет проверка каждого шейпа если
Shape1.Top+17=Shape2.Top; Shape1.Top+17=Shape3.Top ...

Приходится эту проверку делать для каждого шейпа.
Можно ли прописать одну общую строчку сравнения для всех шейпов.

[spamer]

Первое что приходит на ум, это все же массив (можно список):

var
  Shape : array[1..3] of TShape;
  i : Integer;

for i:=1 to 3 do
  begin
    Shape[i] := TShape.Create(Self);
    Shape[i].Name := 'Shape' + IntToStr(i);
    Shape[i].Top := 300;
    Shape[i].Left := i*100+50;
    Shape[i].Width := 50;
    Shape[i].Height := 50;
    Shape[i].Parent:= Form1;
  end;

for i:=2 to 3 do
if Shape[1].Top + 17 = Shape[i].Top
  then Caption := '1'
    else Caption :='0';
end;

з.ы. по другому что то не пойму я как. хД

[W0LF]

А через FindComponent и цыклом проверять равные они или нет?

Чото типа такого (за ошипки ногами в живот не бить, писал тут)

for i:=.. to .. do begin
s:='Shape'+inttostr(i)
if Shape1.Top+17=TShape(FindComponent(s)).Top then
S:=S+1 else S:=S-1;
end;

if S:={количество шейпов} then

[max404]

Вот так вот заработало:

for i:=3 to shape_n do
begin
sn:='Shape'+inttostr(i);
TShape(FindComponent(sn)).Visible:= True;
end;

Ток sn:string;

Спасибо!