برنامه در دلفی

[maryam farshadi]

سلام برنامه نویس های محترم
من میخوام برنامه تبدیل اعداد دودویی به دهدهی را بنویسم در دلفی تا فردا شب هم فرصت دارم
لطفا به من کمک کنید می دونم خیلی ابتدای است
:گریه: :گریه: :گریه:

[Sepidar]

عنوان تاپیک را متناسب با محتوای آن انتخاب کنید.:افسرده:

function Bin2Dec(Bin:String):integer;
var
i,c,l:integer;
begin
l:=length(Bin);
c:=1;
Result:=0;
for i:=1 to l do begin
case Bin[l-i+1] of
'0':;
'1':Result:=Result+c;
else: raise exception.create('Bin2Dec: Input string has characters except of 0 and 1.');
end;
c:=c*2;
end;
end;

[MNosouhi]

اینم کدش:

Uses Math;
...
var i,Len:integer;
St:String;
Sum:Real;
begin
St:=Trim(Edit1.Text);
Sum:=0;
Len:=Length(St);
for i:=1 to Len do
if St[i]='1' then
Sum:=Sum+IntPower(2,Len-i);
Edit2.text:=FloatToStr(Sum)
اصل برنامه رو هم ضمیمه کردم