Bits in Bytes unwandeln

[marabu]

Hallo,

hier noch eine Alternative:

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