Hallo Florian,
mit der Zuweisung von 1 an den Port steuerst du nur eine Leitung (D0). Um alle 8 Leitungen anzusteuern musst du etwa so vorgehen:
Delphi-Quellcode:
const
LEDZEILE = 888;
LED0 = 1;
LED1 = 2;
LED2 = 4;
LED3 = 8;
LED4 = 16;
LED5 = 32;
LED6 = 64;
LED7 = 128;
begin
(* Anschalten jeder zweiten LED *)
Port[LEDZEILE] := LED1 + LED3 + LED5 + LED7;
(* Alle LEDs ausschalten *)
Port[LEDZEILE] := 0;
end;
Grüße vom marabu