TCheckBox.Checked per Schleife

[markus5766h]

Hallo,

kann mir jemand verraten, warum folgender Konstrukt nicht läuft ? :

Code:

procedure TfrmHost.FormShow(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 26 do
   if frmDetect.HddHost[i] then cbHost[i].Checked := True;
   // HddHost[i] : array[1..26] of Boolean
   // cbHost[i] : array[1..26] of TCheckBox

es wird nur der erste zutreffende Wert in HddHost umgesetzt,
bei

Code:

for i := 26 downto 1 do
. . .

entsprechend nur der letzte

HddHost[i] enthält 8 Werte = True, 18 Werte = False

ich steh' irgendwie auf dem Schlauch


. . . Problem gelöst (siehe Post #8), weiß allerdings nicht wodurch . . .