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:

markieren

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:

markieren

Delphi-Quellcode:

			var

  [...]

   Kreise: TObjectList;  ///habe die Unit "Contnrs" eingebunden

markieren

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":

markieren

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**

markieren

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

Objekte als Array zusammenfassen?

Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Re: Objekte als Array zusammenfassen?

Forumregeln

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#2 Re: Objekte als Array zusammenfassen? 8. Okt 2008, 22:43 Es würde sich eine Objektliste (TObjectList) anbieten. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

MrAndyG Registriert seit: 8. Okt 2008 12 Beiträge	#4 Re: Objekte als Array zusammenfassen? 8. Okt 2008, 23:17 Im Nachhinein will ich damit folgende Procedure "füttern": markieren Delphi-Quellcode: procedure ShineGreen(CurrentCircle:Integer); begin Kreise[CurrentCircle].Brush.Color:=clGreen Mit dem Array erspar ich mir dann jede Menge Schreibarbeit
	Zitat

messie Registriert seit: 2. Mär 2005 Ort: Göttingen 1.592 Beiträge Delphi 2009 Professional	#5 Re: Objekte als Array zusammenfassen? 9. Okt 2008, 07:36 Wo hast Du denn Deine TShapes deklariert? Und wo werden sie erzeugt? Grüße, Messie
	Zitat

MrAndyG Registriert seit: 8. Okt 2008 12 Beiträge	#6 Re: Objekte als Array zusammenfassen? 9. Okt 2008, 08:22 markieren 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.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#7 Re: Objekte als Array zusammenfassen? 9. Okt 2008, 08:28 Ansprechen kannst Du die Shapes in der ObjectList überKreise.Items[CurrentCircle] as TShape Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

MrAndyG Registriert seit: 8. Okt 2008 12 Beiträge	#8 Re: Objekte als Array zusammenfassen? 9. Okt 2008, 19:55 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?
	Zitat

MrAndyG Registriert seit: 8. Okt 2008 12 Beiträge	#9 Re: Objekte als Array zusammenfassen? 9. Okt 2008, 19:57 Sry das hier warn Doppelpost mein Browser is hängengeblieben
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#10 Re: Objekte als Array zusammenfassen? 9. Okt 2008, 20:44 Guten Abend, (Kreise.Items[CurrentCircle] as TShape).Brush.Color:=clGreen; Grüße Klaus Klaus
	Zitat