Objekte mi gleichem namen

[Tigermoon]

Hallo

Ich habe 24 shape´s

shape1 bis shape24
kann ich die irgendwie hochzählen?

oder in einem array verwalten?

stephie

[Ultimator]

Entweder FindComponent oder eben ein Array of TShape und gehst dann mit ner for-Schleife durch und greifst mit MyShapeArray[i] auf die Shapes im Array zu

[Tigermoon]

wie genau würdest du das array machen?

[Neutral General]

Delphi-Quellcode:

Shapes: Array[1..10] of TShape; // so
DynShapes: Array of TShape;    //  oder so^^

Dann halt die Shapes dynamisch erzeugen. Und dann kannst du halt mit (Dyn)Shapes[i] auf die Shapes zugreifen.

[Tigermoon]

die 24 shapes die ich habe muss ich die dann umbenennen oder raft der das dann?

[Neutral General]

Du musst/solltest die Shapes alle während der Laufzeit erzeugen.. dann hast du das Problem nicht..

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Shapes[1] := TShape.Create(Self); // vielleicht auch ohne die Klammer.. ka ob shapes ein Parent brauchen^^
 with Shapes[1] do begin
  Parent := Self; // wichtig wenn die Klammer nötig ist^^
  Left := 100;
  Top := 50;
  Width:= 150;
  Height:= 150;
  ...
 end;
 // das halt für jedes Shape
end;

[Tigermoon]

ok danke

[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]

[Ultimator]

Spider, fehlt da nicht noch ein "as TShape" bei deinem FindComponent?

[Die Muhkuh]

Hoppla

Klar fehlt das. Ich verbessere es gleich