Konversi Desimal Ke Biner dengan Delphi

mumpung masih ada gratisan internet..... manfaatin buat postingan ja.....
kali ini saya akan berbagi hasil praktek saya di kampus yaitu mengkonversi Desimal Ke Biner.
banyak se.... ada yang pake delphi, pascal, dan VB tapi kali ini saya akan kasik yang delphi dulu...

Ok lanjut.....

silahkan kalian desain program seperti ini :




ada 2 edit, 2 label, 1 button, dan 1 listbox (untuk menampilkan prosesnya)....

silahkan klik 2X pada tombol button,dan isi dengan kode seperti ini :


procedure TForm1.Button1Click(Sender: TObject);
var
  bin: String;
  desimal,des,sisa: Integer;
begin
  desimal:=StrToInt(eddesimal.Text);
  des:=desimal;
  ListBox1.Items.Add('          '+IntToStr(des));
  bin:='';
    repeat
      if (desimal and 1) = 1 then
        bin:='1'+bin
      else
        bin:='0'+bin;
        sisa:=desimal mod 2;
        ListBox1.Items.Add('  2 --------- '+IntToStr(sisa));
        desimal:= desimal shr 1;
        ListBox1.Items.Add('          '+IntToStr(desimal));

    until desimal= 0 or 1;
        edbiner.Text:='1'+bin;
        desimal:=0;
      repeat
        desimal:=desimal shl 1;
            if bin[1]='0' then
                desimal:=desimal or 0
            else
                desimal:=desimal or 1;
                delete(bin,1,1);
    until bin = '';
      eddesimal.SetFocus;
  end;


jangan lupa ganti propertise name pada masing2 komponen sesuai dengan kode di atas.
atau sesuaikan dengan punya anda.

terimakasih......
jangan lupa komentarnya !!!.....