Turbo Pascal bits lesen/setzen

[Basti (Gast)]

Hi

ich versuche einzele bits auszulesen, bzw zu setzen. Was ich vorhabe:

byte1:=byte1/8
byte2:=byte2/8
byte3:=byte3/64

ergebnissbyte.0:=byte1.0
ergebnissbyte.1:=byte1.1
ergebnissbyte.2:=byte1.2

ergebnissbyte.3:=byte1.0
ergebnissbyte.4:=byte1.1
ergebnissbyte.5:=byte1.2

ergebnissbyte.6:=byte1.0
ergebnissbyte.7:=byte1.1

gibts da ne möglichkeit im guten alten tp?

[Rufus Τ. F. (rufus)]

Du wirst die logischen Operatoren AND und OR verwenden müssen.

[Basti (Gast)]

NAAAAAIIIIIIIIIINNNNNNN, grins

Okay dann werde ichs mir wohl mal anschauen müssen, danke

[Severino R. (severino)]

DOOOOOOOCCCCCCHHHHHH!

Ist doch kein Problem, kannst ja Funktionen erstellen:

Procedure BitSet(var i: integer; b:integer);
Begin
i := i Or (1 Shl b);
End;


Procedure BitClear(VAR i:Integer; b:Integer);
Begin
i := i And (Not(1 Shl b));
End;

(getestet, aber ohne Gewähr...)