Forum: Sonstige Fragen zu Delphi
Delphi
by Z4ppy,
22. Nov 2008
:wall:
War ja klar, dass das sowas is :roll: Ich glaub, ich sollte mal bissl mehr schlafen :lol:
Danke dir :thumb:
MfG Z4ppy
Forum: Sonstige Fragen zu Delphi
Delphi
by Z4ppy,
21. Nov 2008
So, nochmal :lol:
Hab nämlich ein seltsames Problem. Ich hab nun eine Procedur GetBits, der übergebe ich das Byte X und das array, in das sie die Bits schreiben soll (als integer)...
procedure GetBits(X:Byte;Target:array of integer);
var i:integer;
begin
for i:=0 to 7 do
if(X and (1 shl i))=(1 shl i) then Target:=1
else Target:=0;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Z4ppy,
19. Nov 2008
Danke für deine Hilfe :thumb: Dann hab ich ja doch noch was von deinem Tut verstanden :lol:
MfG Z4ppy
Forum: Sonstige Fragen zu Delphi
Delphi
by Z4ppy,
19. Nov 2008
@Deddy:Ja genau, ich will im Prinzip wissen, ob ein Bit eine 0 oder eine 1 enthält, bzw. welche Bits gesetzt sind ;)
Für das hinterste Bit könnte man auch den Code nehmen, oder? (Wenn ja, dann hab ich dein Tut ja doch verstanden :D)
if(Zahl and (1 shl 0)=(1 shl 0)) then //hinterstes bit gesetzt
Dann könnte man das nämlich durch ne schöne Schleife sausen lassen und hätte gleich alle Bits :D
...
Forum: Sonstige Fragen zu Delphi
Delphi
by Z4ppy,
19. Nov 2008
Ich will aus einem Daten-Byte (das aus einem String oder einem Stream stammt) die einzelnen Bits auslesen. Danach möchte ich mit ihnen weiterrechnen ;) Nun hab ich dazu aber einige Fragen :D
1. Wie les ich die Bits aus? Ich hab zwar dieses Thema gefunden, aber das hat mir nicht sonderlich weitergeholfen :oops:
2. Wie speicher ich die Bits am besten ab? Ich benötige sämtliche 8 Bits...