1:
2:

10001011 ->   2^7 +  2^6 +  2^5 +  2^4 + 2^3 + 2^2 + 2^1 + 2^0
10001011 -> 128*1 + 64*0 + 32*0 + 16*0 + 8*1 + 4*0 + 2*1 + 1*1 = 119                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function BinaerToDezimal(pBinaerzahl: array of (0,1)): Integer;
var
  i: Integer;
begin
  result := 0;
  if length(pBinaerzahl) <> 0 then begin
    for i := 0 to high(pBinaerzahl) do begin
      inc(result,pBinaerzahl[i] * Power(2,Index1));  //2^i
    end;
  end;
end;                    

1:

0000100000                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
  i := Edit1.text;
  e := StrToInt(i[1])^0 + StrToInt(i[2])^1 + StrToInt(i[3])^2 + StrToInt(i[4])^3 + StrToInt(i[5])^4 + StrToInt(i[6])^5 + StrToInt(i[7])^6
  label3.Caption := 'Ergebnis : ' + IntToStr(e);
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  a ,b : integer;
  c : extended;
  s : string;
begin
  s := Edit1.Text;
  a := Length(s);

  for b := 1 to a do
    begin
      c := StrToInt(s[b]) * power(2 , (-1 + b) );
    end;

 label3.caption := 'Ergebnis : ' + FloatToStr(c);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  a ,b : integer;
  c : extended;
  s : string;
begin
  s := Edit1.Text;
  a := Length(s);
  C := 0;
  for b := 1 to a do
    begin
      c := c + StrToInt(s[b]) * power(2 , (-1 + b) );
    end;

 label3.caption := 'Ergebnis : ' + FloatToStr(c);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  a ,b, c : integer;
begin
  a := Length(Edit1.Text);
  c := 0;
  for b := 0 to a-1 do
    if Edit1.Text[a+1]='1' then Inc(c,1 shl b); 

 label3.caption := 'Ergebnis : ' + IntToStr(c);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var
  a ,b, c, h : integer;
begin
  a := Length(Edit1.Text);
  c := 0;
  H := 1;
  for b := a downto 1 do
  begin
    if Edit1.Text[b]='1' then Inc(c,h);
    H := H shl 1; // H*2 
  end
 label3.caption := 'Ergebnis : ' + IntToStr(c);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function IntToBin(i: Int64): String;
var x: Integer;
begin
  if i > 0 then
  begin
    Result := '';
    x := 1;
    while i >= x do
    begin
      Result := IntToStr((i and x) div x) + Result;
      x := x shl 1;
    end;
  end
  else
    result := '0';
end;

function BinToInt(b: String): Int64;
var x, lg: Integer;
begin
  b := Trim(Copy(b, Length(b) - 63, 64));
  lg := Length(b);
  Result := 0;
  for x := lg downto 1 do
    Result := Result + (StrToInt(b[x]) shl (lg - x));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Function TMyForm.IntToBinSTR(Zahl : Integer): String; // der kommt in ein Editfeld
Var CalcWert : Integer;
    ReWert   : String;
Begin
  Rewert:='';
  CalcWert:=Zahl;
  Repeat // Schleifenbeginn
    If (CalcWert=Trunc(Calcwert/2)*2) then Rewert:='0' +Rewert
    else Rewert:='1' +Rewert // String baut von hinten nach vorn auf
    Rewert:=Trunc(Rewert/2);
  until Rewert:=0;
  While Length(Rewert)  <8 then ReWert:='0'+Rewert;// auffüllen für vollständiges Byte
  Result:=ReWert;
End;