Bin in Dec umwandeln

[Quick_silver]

also ich will eine Binäre Zahl (Z.b. aus einer schnittstelle) in eine Dezimalzahl umwandeln.
Kennt ja jemand ne Lösung?
also 1101011010010 in irgend ne NORMAL zahl verwandeln!

[jbg]

Delphi-Quellcode:

function BinToInt(const S: string): Integer;
var
  Index: Integer;
begin
  Result := 0;
  for Index := Length(s) downto 1 do
    if s[Index] = '1' then
      Result := Result or (1 shl (Length(s) - Index);
end;

(Normalerweise verwende ich i anstatt Index, aber das würde hier die Kursivschrift hervorrufen)

[Duffy]

Hallo,
hier ist mal ein Lösungsansatz. Viel Spaß

bye

Delphi-Quellcode:

function NumBin(B: string): Longint;
var
  Accum, Power: Longint;
  P: Byte;
begin
  Power := 1;
  Accum := 0;
  for P := Length(B) downto 1 do
  begin
    If  (B[P] = '0') or (B[P] = '1') then
    begin
      If B[P] = '1' then
      begin
        Inc(Accum, Power);
      end;
      Power := Power shl 1;
    end;
  end;
  NumBin := Accum;
end;