Es ist zwar nicht exakt die gleiche Sektion (inhaltlich), aber egal.
Wie setzt man nun ein Bit? Wie wäre es mit den Bit-Operationen? Erst die Bitmasken (vorzugsweise als Konstanten deklarieren):
Bit0: $00000001
Bit1: $00000002
Bit2: $00000004
Bit3: $00000008
Bit4: $00000010
Bit5: $00000020
Bit6: $00000040
Bit7: $00000080
Bit8: $00000100
Bit9: $00000200
BitA: $00000400
BitB: $00000800
... usw. usf.
Dann setzt man bspw. Bit 3 so:
... überprüft es so:
Code:
if(dw and $00000008 <> 0)then
... oder löscht es so:
Code:
dw := (dw and (not $00000008));
... ich bin leicht schockiert, daß du mit sowas rumspielen willst, wenn du nichtmal diese Grundlagen beherrschst. Wundert mich übrigens, daß das "einfach so" gehen soll. Immerhin sind gerade für diese Geschichten sonst Umwege über
Exception-Handler nötig.