Moin Salomon,
nein, in Deinem Beispiel wird Bit 0 auf 1 gesetzt, die übrigen auf 0.
[EDIT]Vergiss die vorige Zeile, Missverständnis
[/EDIT]
Ein Byte hat den Wertebereich (dezimal) von 0 bis 255, (binär) 00000000 bis 11111111.
Die Bits werden von rechts nach links mit 0 bis 7 durchnummeriert. Die Position ist also als Exponent für 2 zu verwenden, um den dezimalen Wert eines Bits herauszubekommen (2 hoch 0 = 1, 2 hoch 1 = 2 usw.).
Mal abgesehen davon, dass man sich mit IntToStr den dezimalen Wert ganz einfach anzeigen lassen kann, kann man also, allgemein, den Dezimalwert einer Binärzahl durch Addition der Produkte aus dem Wert der Stelle (0 oder 1) und dem Ergebnis der Potenz (2 hoch n) errechnen.
Beispiel:
10110001
1 * 2^7 = 128
0 * 2^6 = 0
1 * 2^5 = 32
1 * 2^4 = 16
0 * 2^3 = 0
0 * 2^2 = 0
0 * 2^1 = 0
1 * 2^0 = 1
--------------
= 177
===
Mit folgenden Funktionen kannst Du, wenn ich mich jetzt nicht vertan habe, gezielt einzelne Bits setzen, bzw. löschen können.
Code:
[b]function[/b] SetBit([b]var[/b] p_bResult : Byte;[b]const[/b] p_iPosition : integer) : Boolean;
[b]begin[/b]
Result := (p_iPosition < 8);
[b]if[/b] [b]not[/b] Result [b]then[/b]
[b]begin[/b]
exit
[b]end[/b];
p_bResult := p_bResult [b]or[/b] (1 [b]shl[/b] p_iPosition);
[b]end[/b];
[b]function[/b] ClearBit([b]var[/b] p_bResult : Byte;[b]const[/b] p_iPosition : integer) : Boolean;
[b]begin[/b]
Result := (p_iPosition < 8);
[b]if[/b] [b]not[/b] Result [b]then[/b]
[b]begin[/b]
exit
[b]end[/b];
p_bResult := p_bResult [b]and[/b] [b]not[/b]( (1 [b]shl[/b] p_iPosition));
[b]end[/b];