Converting Binary to decimal (Konversi Biner ke Desimal)

Pada post Sebelumnya saya telah menulis tentang konversi Desimal ke Biner. Pada Post ini Saya akan mengupas tentang kebalikannya yaitu Konversi Biner ke Desimal

Function Pangkat(Base : integer; exp: integer ): integer;
var i : integer;
begin
  result:= 1;
  for i := 1 to exp do
  begin
    result:=Result*Base;
  end;
end;

Function BinToDec(Inp : String): String;

Var
  I : Integer;
  pwr : integer;
  des : integer;
Begin
  Pwr:= length(Inp)-1;
  des:=0;
  For I := 1 to length(inp) do
  begin
    if inp[i]='1' then des:= des + pangkat(2,pwr);
    dec(Pwr);
  end;
  Result:= INtTostr(Des);

End;

Pemakaian Fungsi Ini :

Var Hasil : String;

Begin

.

.

  Hasil:= BinToDec('11111010');