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