Array of Boolean

[jeng37]

Zitat von Uwe Raabe:

Was ist Y?
Wo verwendest du X?
Was soll das nil bedeuten?

Hab mich vertippt..

Y wird auf true gesetzt wenn die entsprechende Radiobox angewählt wird.
I wird von einer checkbox auf True gesetzt.

Delphi-Quellcode:

procedure TForm1.RadioButtonClick(Sender: TObject);
Var
  I, X,Y: integer;
  Line: String;
 
Begin
  Line := 'RadionState=';
  Y := TRadioButton(Sender).Tag;
  TestArray[Y,Nil] := True; // hier das problem.

 for i := 0 to 7 do
  if TestArray[Y,i] then
          Line := Line +'FF,'
   else
      Line := Line +'00,';
      Memo1.Lines.Add(Line);
End;

procedure TForm1.ckPortClick(Sender: TObject);
  var
    ThisCheckBox: TCheckBox;
begin

  ThisCheckBox := Sender as TCheckBox;
  TestArray[Y,ThisCheckBox.Tag] := ThisCheckBox.Checked;
  SendStateToHW;
end;

procedure TForm1.SendStateToHW;
  var
    i,y: Integer;
    Line: String;
begin

  Line := 'NewState=';
 for y:= 0 to 15 do
    begin
      for i := 0 to 7 do
       if TestArray[y,i] then
       Line := Line +'FF,'
   else
      Line := Line +'00,';
      Memo1.Lines.Add(Line);
   end;

end;