Feld (Array) von Shapes

**tra**

Liebe Delphi-Profis,

mein Problem ist Folgendes:

Ich möchte gerne auf einem Formular mit ca. 10 gleichatigen Shapes (z.B. Kugeln) arbeiten.
Erzeuge ich Shape für Shape, "nummeriert" Delphi diese mit Shape1, Shape2, ... Shape10 durch.
Jetzt kann ich aber diese Shapes nicht gleichartig ansprechen.
Es wäre mir lieber, die Namen hießen Shape[1], Shape[2], ..., Shape[10] - ein Array eben. Dann könnte ich jedes einzelne Shape gleichartig z.B. mit einer FOR-Schleife durch Shape[i] ansprechen.

Weiß von euch jemand, wie man ein Array von Shapes erzeugt?

Viele Grüße

**mkinzler**

markieren

Delphi-Quellcode:

			shapes: Array of Shapes;

i: integer;

...

for i := 0 to Anzahl - 1

    shapes[i] := TShape.Create( <Owner>);

    shapes[i].Parent := <Parent>;

    shapes[i].Left := ...

**marabu**

Herzlich willkommen in der Delphi-PRAXiS, tra.

Hier nur ein paar subtile Änderungen an den Code-Zeilen von Markus:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TDemoForm = class(TForm)

  // ...

  private

    shapes: array of TShape;

    procedure CreateShapes(n: Word; wc: TWinControl);

  end;

procedure TDemoForm.CreateShapes(n: Word; wc: TWinControl);

begin

  SetLength(shapes, n);

  while n > 0 do

  begin

    Dec(n);

    shapes[n] := TShape.Create(self);

    shapes[n].Parent := wc;

    // ...

  end;

end;

Freundliche Grüße

Feld (Array) von Shapes

Feld (Array) von Shapes

Re: Feld (Array) von Shapes

Re: Feld (Array) von Shapes

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Feld (Array) von Shapes 30. Mai 2008, 05:36 markieren Delphi-Quellcode: shapes: Array of Shapes; i: integer; ... for i := 0 to Anzahl - 1 shapes[i] := TShape.Create( <Owner>); shapes[i].Parent := <Parent>; shapes[i].Left := ... Markus Kinzler
	Zitat