Label1 bis 80?

**nixalsverdruss**

Hallo,
ich habe viele Label (0 Stück auf einem Formular. Wie kann ich schreiben: "Label1 bis Label80.Caption :='...'"? Geht das überhaupt?
Danke schon mal
nixalsverdruss

**DeddyH**

Jo, das geht. QuickAndDirty-Lösung:

markieren

Delphi-Quellcode:

			for i := 1 to 80 do

  TLabel(FindComponent('Label' + IntToStr(i))).Caption := 'Wuppdi';

Eleganter und schneller wäre es aber, wenn Du Dir die Labels z.B. in einem Array oder einer TObjectList ablegst.

**nixalsverdruss**

Okay dankeschön!!!!!!

**Luckie**

Also 0 Stück finde ich nicht gerade sehr viel.

**nixalsverdruss**

Soory meinte natürlich 80...
Aber.... was muss ich hier verändern:

markieren

Delphi-Quellcode:

			procedure TForm2.Button7Click(Sender: TObject);

begin

for i := 1 to 33 do

  TLabel(FindComponent('Label' + IntToStr(i))).Caption := ' ';

for i := 40 to 86 do

  TLabel(FindComponent('Label' + IntToStr(i))).Caption := ' ';

end;

end.

???????????????

**DeddyH**

i sollte schon deklariert werden

**sakura**

Zitat von nixalsverdruss:

Aber.... was muss ich hier verändern:

Generell sehe ich keinen Fehler - wo liegt denn Dein Problem?

...

...

**QuickAndDirty**

Nur mal so um die Namen zu prüfen.

markieren

Delphi-Quellcode:

			var i: integer;

    s: String;

Begin

  For i := 0 To pred(Componentcount) do

    if Components[i] is Tlabel then

      s := s + Components[i].name;

  Showmessage(s);

end;

**nixalsverdruss**

ach ja klar...

Hab ich vergessen zu deklarieren....Danke euch allen!!!!!!!!!!!!

Label1 bis 80?

Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Re: Label1 bis 80?

Forumregeln

nixalsverdruss Registriert seit: 22. Nov 2008 128 Beiträge Delphi 2005 Personal	#1 Label1 bis 80? 22. Jan 2009, 12:52 Hallo, ich habe viele Label (0 Stück auf einem Formular. Wie kann ich schreiben: "Label1 bis Label80.Caption :='...'"? Geht das überhaupt? Danke schon mal nixalsverdruss Goldene Regel: Was man an Kraft spart, kann man an Faulheit zusetzen!
	Zitat

nixalsverdruss Registriert seit: 22. Nov 2008 128 Beiträge Delphi 2005 Personal	#3 Re: Label1 bis 80? 22. Jan 2009, 13:00 Okay dankeschön!!!!!! Goldene Regel: Was man an Kraft spart, kann man an Faulheit zusetzen!
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 Re: Label1 bis 80? 22. Jan 2009, 13:04 Also 0 Stück finde ich nicht gerade sehr viel. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#6 Re: Label1 bis 80? 22. Jan 2009, 13:18 i sollte schon deklariert werden 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

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#7 Re: Label1 bis 80? 22. Jan 2009, 13:18 Zitat von nixalsverdruss: Aber.... was muss ich hier verändern: Generell sehe ich keinen Fehler - wo liegt denn Dein Problem? ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

QuickAndDirty Registriert seit: 13. Jan 2004 Ort: Hamm(Westf) 1.884 Beiträge Delphi 12 Athens	#8 Re: Label1 bis 80? 22. Jan 2009, 13:21 Nur mal so um die Namen zu prüfen. markieren Delphi-Quellcode: var i: integer; s: String; Begin For i := 0 To pred(Componentcount) do if Components[i] is Tlabel then s := s + Components[i].name; Showmessage(s); end; Andreas Monads? Wtf are Monads?
	Zitat

nixalsverdruss Registriert seit: 22. Nov 2008 128 Beiträge Delphi 2005 Personal	#9 Re: Label1 bis 80? 22. Jan 2009, 13:30 ach ja klar... Hab ich vergessen zu deklarieren....Danke euch allen!!!!!!!!!!!! Goldene Regel: Was man an Kraft spart, kann man an Faulheit zusetzen!
	Zitat