Array of Boolean

[Uwe Raabe]

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

[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;

[Uwe Raabe]

Was willst du mit TestArray[Y,Nil] := True; bezwecken?

Der zweite Index des Arrays ist als 0..7 deklariert. Was soll also das nil dort bedeuten?

[jeng37]

Zitat von Uwe Raabe:

Was willst du mit TestArray[Y,Nil] := True; bezwecken?

Der zweite Index des Arrays ist als 0..7 deklariert. Was soll also das nil dort bedeuten?

Ich möchte in dem moment da nichts übergeben.

Ach du liebe....

Ich habs bemerkt, ich brauche das ja gar nicht.
Ich wollte an sich dan den radiobutton.tag ablegen, das brauche ich ja garnicht.
Ich speichere einfach nur den gedrückten radiobutton in einer public definierten variable.


Danke...

[p80286]

Was auch immer Du da erreichen willst..
Eine Möglichkeit durch die Hintertüre wäre es z.B. mit Fillchar zu arbeiten. Aber empfehlenswert ist das nicht unbedingt.
Was spricht denn gegen

Delphi-Quellcode:

for i:=0 to 15 do
  for j:=0 to 7 do
    TestArray[i,j]:=false;

?

Gruß
K-H