//我用Delphi写的二进制转十进制的代码!
procedure TForm1.Button1Click(Sender: TObject);
var
i, Max: Integer;
Num, Num1: Integer;
begin
Max := 1;
Num := Length(Edit1.Text) - 1;
if Num <= 1 then
Max := 1
else
for i := 1 to num do
Max := Max * 2;
for i := 1 to Length(Edit1.text) do
begin
Num := StrToInt(Copy(Edit1.Text, i , 1));
if i = 1 then
num := Num * Max
else
begin
Max := Max div 2;
num := Num * Max;
end;
ListBox1.Clear;
ListBox1.Items.Add(IntToStr(Num));
num1 := Num1 + num;
end;
Edit1.Text := IntToStr(num1);
end;