Ja, das perverse da dran ist
{$J+}
.
-> schreibbare Konstanten ... sowas wie eine globale Variable
typisierte Konstanten sind eigentlich schreibgeschützte Variablen, nur dass der Compiler den Schreibzugriff normalerweise verbietet ... außer man schaltet es ab.
aber mathematisch dürfte ein
Delphi-Quellcode:
{global} var
counter: Byte = 0;
begin
counter := counter shl 1;
if counter = 0 then counter := 1;
case counter of
1, 2, 4, 8 :
Delphi-Quellcode:
{global} var
counter: Byte = 0;
begin
counter := (counter + 1) mod 8;
if counter < 4 then
oder
Delphi-Quellcode:
{global} var
counter: Byte = 0;
begin
Inc(counter);
if counter >= 8 then
counter := 0;
if counter < 4 then
entsprechen