Jak (w DELPHI6) mam taki kod:
cos1.enabled:=false;
cos2.enabled:=false;
cos3.enabled:=false;
cos4.enabled:=false;
cos5.enabled:=false;
cos6.enabled:=false;
cos7.enabled:=false;
cos8.enabled:=false;
cos9.enabled:=false;
cos10.enabled:=false;
cos11.enabled:=false;
cos12.enabled:=false;
cos13.enabled:=false;
cos14.enabled:=false;
cos15.enabled:=false;
Moge jakoś go zapisać krócej??
Pozdrawiam Pik :-)
Ja też chciałem to wiedzieć kiedyś a jak się zapytaleś to mi się przypomniało i zapytałem się na kanale...
Możesz to zapisać w ten sposób:
for i:=1 to 15 do tcos(findcomponent('cos'+inttostr(i))).enabled:=false;
Powinno zadziałać :-)
Cześć!
Może chodzi Ci o to:
var
LP: Integer;
begin
for LP := 0 to ComponentCount - 1 do
if (Components[LP] is jakas_klasa) then
(Components[LP] as jakas_klasa).Enabled := True;
end;
Dzieki wam!