hey,
vielen dank
ich glaub das war (anscheinend) doch der hauptfehler in meiner CodierUnit..
könnt ihr mir noch einmal helfen und mir einen einfachen Weg (vor)-sagen, mit dem ich aus mehreren Bits (die ich beim Decodieren bekomme) wieder ein Byte (und dann einen Buchstaben) erzeugen kann ?
mich bringen die ganzen bits irg. durcheinander und das funktioniert alles nicht so wie ich dachte, dass es funktionieren müsse...
EDIT :
ich hab das hier versucht :
Delphi-Quellcode:
function TDecodieren.BitToBuch(Bit1, bit2, bit3, bit4, bit5, bit6,
bit7, bit8: Integer) : Char;
var
ZwischenInt : Integer ;
begin
ZwischenInt := 00000000;
if Bit1 = 1 then
ZwischenInt := ZwischenInt or 10000000;
if Bit2 = 1 then
ZwischenInt := ZwischenInt or 01000000;
if Bit3 = 1 then
ZwischenInt := ZwischenInt or 00100000;
if Bit4 = 1 then
ZwischenInt := ZwischenInt or 00010000;
if Bit5 = 1 then
ZwischenInt := ZwischenInt or 00001000;
if Bit6 = 1 then
ZwischenInt := ZwischenInt or 00000100;
if Bit7 = 1 then
ZwischenInt := ZwischenInt or 00000010;
if Bit8 = 1 then
ZwischenInt := ZwischenInt or 00000001;
Result := Chr(ZwischenInt);
aber irgendwie kommt da nur mist raus .. (obwohl die Bits den Buchstaben T ergeben )