Thema: Delphi Label1 bis 80?

Einzelnen Beitrag anzeigen

nixalsverdruss

Registriert seit: 22. Nov 2008
128 Beiträge
 
Delphi 2005 Personal
 
#5

Re: Label1 bis 80?

  Alt 22. Jan 2009, 14:16
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.
???????????????
Goldene Regel: Was man an Kraft spart, kann man an Faulheit zusetzen!
  Mit Zitat antworten Zitat