Objekte als Array zusammenfassen?

[MrAndyG]

Hallo zusammen,

ich habe in meinem Programm 8 verschiedene "Shape" eingefügt, also Kreise.

Diese würde ich gerne als ein Array zusammenfassen, um diese später leichter ansprechen zu können.

Ich habe z.B. eine Prozedur zum Ändern der Farbe geschrieben:

Delphi-Quellcode:

procedure MakeGreen(CurrentCircle:Integer);
begin
Shape[CurrentCircle].Brush.Color:=clGreen
end;

Wie mache ich aber aus den verschiedenen Shapes ein Array?

Viele Grüße
Andy

[Luckie]

Es würde sich eine Objektliste (TObjectList) anbieten.

[MrAndyG]

Hi ich bin noch relativ neu bei Delphi, und habe bislang vergeblich versucht, eine Objektliste zu erstellen.

Hier mal ein Auszug aus meinem Quellcode:

Delphi-Quellcode:

var
  [...]
   Kreise: TObjectList;  ///habe die Unit "Contnrs" eingebunden

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Kreise:=TObjectList.Create ;
Kreise.Add(Shape1);
Kreise.Add(Shape2);
... usw

Ich weiß nicht ob es bisher stimmt.

Auf jeden Fall bin ich mir nicht im Klaren wie ich jetzt nachher auf die Listeneinträge zugreifen kann...


Viele Dank für eure Mühen blicke noch nich ganz durch

[MrAndyG]

Im Nachhinein will ich damit folgende Procedure "füttern":

Delphi-Quellcode:

procedure ShineGreen(CurrentCircle:Integer);
begin
Kreise[CurrentCircle].Brush.Color:=clGreen

Mit dem Array erspar ich mir dann jede Menge Schreibarbeit

[messie]

Wo hast Du denn Deine TShapes deklariert? Und wo werden sie erzeugt?

Grüße, Messie

[MrAndyG]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;

Die wurden so angelegt als ich die aus der Komponentenpalette heraus erstellt habe.

[DeddyH]

Ansprechen kannst Du die Shapes in der ObjectList überKreise.Items[CurrentCircle] as TShape

[MrAndyG]

Hi, seid mir nicht böse aber ich versteh das nicht.

Wie kann ich denn jetzt konkret dem zweiten Kreis in meiner Liste den Füllwert "grün" zuweisen?

[MrAndyG]

Sry das hier warn Doppelpost mein Browser is hängengeblieben

[Klaus01]

Guten Abend,

(Kreise.Items[CurrentCircle] as TShape).Brush.Color:=clGreen; Grüße
Klaus