Convert Decimal to binary(Konversi Desimal ke Biner)

Bagi yang Pernah berurusan dengan kriptografi,Pemrograman hardware,Pemrograman Citra , Fungsi Ini Sering digunakan :

Berikut Adalah Sourcecodenya :

Function DecToBin(Inp : String): String;

Var
  HasilBagi,SisaBagi : Integer;
  Bin,Biner : String;
  i : integer;
  Des : integer;
Begin
  Bin := '';
  Biner := '';
  Des:= StrToInt(inp);
  Repeat
    SisaBagi := des Mod 2;
    bin:= bin + intToStr(SisaBagi);
    HasilBagi := Des Div 2;
    des:= HasilBagi;
  Until HasilBagi = 0;

  For I := length (Bin) Downto 1 Do
  Begin
    Biner := Biner + Bin[i];
  End;
  Result:= Biner;

End;

Penggunaannya 

var Hasil: String;

begin

.

.

Hasil:=DecToBin('254');