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:

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!!!!!! :hello: :hi:

[Luckie]

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

[nixalsverdruss]

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

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

[sakura]

Zitat:

Zitat von nixalsverdruss

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

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

...:cat:...

[QuickAndDirty]

Nur mal so um die Namen zu prüfen.

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... :wall: Hab ich vergessen zu deklarieren....Danke euch allen!!!!!!!!!!!!