Søges en bedre måde at optimere koden på

var
  I: Integer;
  Temp: TComponent;
begin
  for I := ComponentCount - 1 downto 0 do
  begin
    Temp := Components[I];
    if (Temp is TCheckbox) then
    TCheckbox(Temp).checked:=false;
   
  end;

end;

eller noget i den stil

Jeg ved ikke om dette er en optimering:

var
  i : integer;
begin
  for i:=1 to 7 do
    (Self.FindComponent('CheckBox'+IntToStr(i)) as TCheckBox).Checked:=false;
end;

Det kan ihvertfald ikke udføres hurtigere end din egen kode.
Når det kun drejer sig om 7 kontroller, er det sådan set kun et spørgsmål om hvad du selv synes ser bedst ud.

Følgende kan man i mange avancerede sprog, men jeg ved faktisk ikke, om man kan i Pascal, og jeg kan ikke teste det lige nu:

checkbox1.Checked:=checkbox2.Checked:=checkbox3.Checked:=checkbox4.Checked:=checkbox5.Checked:=checkbox6.Checked:=checkbox7.Checked:=false;

Hmm, på min skærm kan man ikke se hele koden.

En kortere version:

checkbox1.Checked:=checkbox2.Checked:=checkbox3.Checked:=false;

Definationen på kodeoptimering er at skrive en kode så kort som mulig. Det giver både overblik og minimere fejl.

Så kroning er den absolutte vinder i dette spørgsmål...

smid et svar korning...

Sorry stavefejl....

smid et svar kroning

ok