Objekte mi gleichem namen

[Die Muhkuh]

Hi,

ich sehe aber auch kein Problem die Shapes manuell zu zuweisen:

Delphi-Quellcode:

ShapeArr: array [0..23] of TShape; // 24 Shapes;

procedure InitShapes;
var
  I: Integer;
begin
  // Wenn die Shapes shape0..shape23 heißen:
  for I := 0 to 23 do
  begin
    ShapeArr[I] := (FindComponent('shape' + IntToStr(I)) as TShape);
  end;

  // Wenn die Shapes nicht shape0..shape23 heißen: 
  ShapeArr[0] := Shape1;
  ShapeArr[1] := ShapeTop;
  ShapeArr[2] := ShapeIrgendwas;
  // ...
end;

[edit] Fehler verbessert [/edit]