Turbo Pascal bits lesen/setzen

Basti Gast 03.09.2008 11:05 #974669

Lesenswert?

•

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?

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Rufus Τ. F. (rufus) 03.09.2008 11:24 #974698

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Basti Gast 03.09.2008 11:40 #974725

Lesenswert?

•

▲
▼

NAAAAAIIIIIIIIIINNNNNNN, grins

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Severino R. (severino) 03.09.2008 12:01 #974760

Lesenswert?

•

▲
▼

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...)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren