Variablen und Bit-Abfrage in Schleife zusammenfassen

[Helmi]

Hallo,

ich bräucht Hilfe.

Ich hab eine Bit-Abfrage einer Byte-Variable auf ein Array:

Delphi-Quellcode:

  Shape_aktiv[1] := not (LED_Zustand and 1) > 0;
  Shape_aktiv[2] := not (LED_Zustand and 2) > 0;
  Shape_aktiv[3] := not (LED_Zustand and 4) > 0;
  Shape_aktiv[4] := not (LED_Zustand and 8) > 0;
  Shape_aktiv[5] := not (LED_Zustand and 16) > 0;
  Shape_aktiv[6] := not (LED_Zustand and 32) > 0;

Ich würd das gern in eine Schleife bringen.

Wie kann ich das in einer Schleife machen?

[DeddyH]

Delphi-Quellcode:

for i := 0 to 5 do
  Shape_aktiv[Succ(i)] := not ((LED_Zustand and (1 shl i)) > 0);

Getippt und nicht getestet.

[edit] Fehlende Klammern ergänzt ;) [/edit]

[Helmi]

Danke!

Hat funktioniert!