Array durchlaufen und Werte rauslesen

[Helmi]

der komplette Code schaut so aus:

Delphi-Quellcode:

  Wert := 0;

  for i := 1 to 8 do
    begin
      //ALeds nach CheckBox-Zustände anzeigen
      S := 'CheckBox_Ausgang_%d';
      dummy_CheckBox  := FindComponent(Format(S, [i])) as TCheckBox;

      S := 'ALed_Ausgang_%d';
      dummy_ALed      := FindComponent(Format(S, [i])) as TALed;

      dummy_ALed.Checked  := dummy_CheckBox.Checked;

      //
      Wert := Wert + (Integer(dummy_CheckBox.Checked) * (1 shl Pred(i)));
    end;

aber denkt ihr nicht, dass wir allmählich ot werden?