Hallo,

irgendwie komme ich grade bei einer eigentlich einfachen Sache nicht weiter Ich babe einen String in den nur zwei Zeichen Vorkommen die '0' und die '1'. Dieser String besteht Quasi aus Bits, nun will ich diesen String wieder in Bytes verwandeln d.h. aus 01110111 soll wieder ein 'w' werden.

zusammenfalten · markieren

Delphi-Quellcode:

function DecodeBitString(ABits: string): string;
var
  Bits: string;
  MyByte: string;
  i, c: integer;
  B: Byte;
begin
  Result := '';
  Bits := ABits;
  // Auffüllen es nicht mit einen ganzen Byte endet
  i := Length(Bits) mod 8;
  if i <> 0 then begin
    c := 8 - i;
    for i := 0 to c do begin
      Bits := Bits + '0';
    end;
  end;
  //c := Length(Bits) div 8;
  c := 10; // Erste 10 Bytes lesen
  for i := 0 to c do begin
    MyByte := Copy(Bits, 1, 8);
    Delete(Bits, 1, 8);
    B := BitsToByte(MyByte);
    Result := Result + Char(B);
  end;
end;

function BitsToByte(ABit: string): Byte;
const
  n : array[0..7]of byte = (128, 64, 32, 16, 8, 4, 2, 1);
var
  i : integer;
begin
  Result := 0;
  for i := 0 to 7 do begin
    if ABit[i] <> '0' then begin
      Inc(Result, n[i]);
    end;
  end;
end;

Irgentwie komm ich da auf ganz andere Zahlen werte, und verdammt langsam ist das ganze auch noch. Vielleicht hat jemand von euch eine Idee wie es besser geht ?

thx, Björn

Versuch es mal so:

zusammenfalten · markieren

Delphi-Quellcode:

function BitsToByte(const ABit: string): Byte;
var i: integer;
    sBit: byte;
begin
  sBit := 1;
  Result := 0;
  for i := Length(ABit) downto 1 do
    begin
      if ABit[i] <> '0' then
        Result := Result or sBit;
      sBit := sBit shl 1;
    end;
end;

Danke für die schnelle Hilfe es geht jetzt

Hallo,

hier noch eine Alternative:

markieren

Delphi-Quellcode:

function DualStrToCard(const s: string): Cardinal;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    Result := Result shl 1 + Ord(s[i] = '1');
end;

Grüße vom marabu