Komponentennamen in Schleifenform als Array deklarieren

[kellerassel007]

Hi,
ein Problem habe ich noch...
Ich habe ein Array mit dem Namen Shape vom Typ TShape gemacht.
Jetzt will ich, dass Shape[1] als Shape1, Shape[2] als Shape2 deklariert wird usw. bis Shape[250] als Shape250.

Muss ich dafür jetzt diesen Befehl für jedes einzelne Shape eintippen oder geht das auch mit einer Schleife?
Ich weiß halt nicht wie man auf die Zahl im Namen zugreift.
Wär super, wenn ich schnell Hilfe bekäme.

[Luckie]

Meist du so was?

Delphi-Quellcode:

for i := 0 to 9 do
begin
  myShape := TShape.Create(...);
  myShape.name := 'myShape' + IntToStr(i);
end;

[kellerassel007]

Villeicht klappt es,
aber wenn ich die einzelnen Shapes anzusprechen versuche, also sie zum Beispiel sichtbar mache,
klappt das nicht (s. Quelltext u.)

Delphi-Quellcode:

  FOR i := 82 TO 250 DO
    begin
      Shape[i] := TShape.Create(self) ;
      Shape[i].Name := 'Shapes' + IntToStr(i) ;
      Shape[i].Visible := True ;
      Shape[i].Width := 20 ;
      Shape[i].Height := 20 ;
      Shape[i].Top := 300 ;
      Shape[i].Left := 300 ;
    end;

[DeddyH]

Was heißt "klappt nicht"? Wie sieht denn das Array aus?

[kellerassel007]

Da werden keine Shapes sichtbar,
und es müssten ja eigentlich 170 sichtbar werden.

Delphi-Quellcode:

[...]  
  private
    Shape : Array of TShape ;
[...]

[DeddyH]

Du musst ja auch noch den Parent zuweisen.

[edit]

Delphi-Quellcode:

FOR i := 82 TO 250 DO
    begin
      Shape[i] := TShape.Create(self) ;
      Shape[i].Parent := self; 
      ...
    end;

[/edit]

[mkinzler]

Hat der Array auch genügend Platz?

[kellerassel007]

Oh stimmt ^^,
danke für den Tipp mit dem Parent,
Das bedeutet auf welchem Formular das angezeigt wird oder wofür steht der Parent?
Super es klappt jetzt :)

[Luckie]

Der Owner ist für die Speicherverwaltung der Komponente verantwortlich. Der Parent für das Zeichnen.

[DeddyH]

Schau mal in der Hilfe nach TControl.Parent ;)