Halo halooo.. ada yang tau gak, membuat aplikasi konversi dari decimal ke binary atau sebaliknya dari binary(biner) ke decimal dengan menggunakan program delphi????????

nih hasil googling .. disni dan disini NB : rajin searching nya

nambahin http://fajardelphiscript.blogspot.com/2009/07/konversi-bilangan-dengan-delphi.html nih yang paling bagus

Payah geshi, tanda + kok hilang. Nih, yang biasa aja: procedure TForm5.Button1Click(Sender: TObject); var bin: String; intg: Integer; begin intg:=StrToInt(Edit1.Text); //convert to bin bin:=''; repeat if (intg and 1) = 1 then bin:='1'+bin else bin:='0'+bin; intg:= intg shr 1; until intg = 0; Edit2.Text:=bin; //convert back intg:=0; repeat intg:=intg shl 1; if bin[1]='0' then Intg:=intg or 0 else Intg:=intg or 1; delete(bin,1,1); until bin = ''; //result Edit3.Text:=IntToStr(intg); end;