bin2dec

[APP]

Hallo,
wenn Du es noch 'komplizierter' möchtest, dann schau mal:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
   i                               : integer;
   bin                             : Extended;
   Dec                             : Extended;
BEGIN
   bin := 1;
   dec := 0;
   FOR i := 1 TO length(Edit1.text) DO
      BEGIN
         bin := intpower(2, i - 1);
         IF Edit1.text[i] = '1' THEN
            dec := dec + bin;
      END;
   showMessage(FloatToStr(dec));
END;

Du brauchst eine TEdit und einen TButton

Achtung: das LSB ist links! D.H. 1011 -> 2^0 + 2^2 + 2^3 = 1 + 4 + 8 = 13