Entwickler-Ecke
Sonstiges (Delphi) - Word <-> Bit
Szorcc - Do 27.03.03 08:44
Titel: Word <-> Bit
Hi,
wie kann man einen Word-Wert (Bsp. integer) in einen Binary-Wert (Bsp. 00110110) umwandeln, einzelne Bits ändern und wieder zurück wandeln?
Gruß Szorcc
AndyB - Do 27.03.03 09:25
Möchtest du die Bit-Werte ausgeben? Wenn nein, dann musst du gar nichts konvertieren, da der Prozessor sowieso nur mit Binärzahlen arbeiten kann.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| function BitClear(Value: Integer; Bit: Integer): Integer;
begin
Result := Value and not (1 shl Bit);
end;
function BitSet(Value: Integer; Bit: Integer): Integer;
begin
Result := Value or (1 shl Bit);
end;
function BitToggle(Value: Integer; Bit: Integer): Integer;
begin
Result := Value xor (1 shl Bit);
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!