Mhh.. das mit dem BitsToBytes ist mir fremd.
Was passiert denn da genau, weil ich verstehe es nicht richtig.
Edit:
Folgendes gefunden
Delphi-Quellcode:
function BinToStr(b: Byte): String;
var I: Integer;
begin
setlength(result, 8);
for I:=0 to 7 do
result[I+1]:=chr((b shr (7-I)) and 1+48);
end;
Aufruf:
Memo7.Text := BinToStr(StrToInt(Edit7.Text));
Normalerweise müsste im Memo ein "M" zu sehen sein, wenn ich 01001101 ins Edit schreibe, aber es kommt
eine Binärzahl zurück
