Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Binary to decimal cevrimi

function BinToDec(i:String):integer; var sonuc,k,z,katsayi:integer; begin katsayi:=1; sonuc:=0; For k:=length(i) downto 1 do begin z:=strtoint(i[k]); sonuc:=sonuc+ (z * katsayi); katsayi:=katsayi*2 end; BinToDec:=Sonuc; end; procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Text:=inttostr(BintoDec(edit1.text)); end;