How To Convert Decimal to Hexadecimal in Delphi ( Konversi Bilangan Desimal Ke Hexa)

Bagi yang pernah membuat aplikasi enkripsi-deskripsi maupun pemrograman pengaksesan ke hardware pasti pernah membuat fungsi untuk mengkonversi Bilangan Desimal Ke Hexadesimal.

Berikut Adalah Source Code Fungsi ini :

Function DecToHex(Inp : String): String;
Var
  HasilBagi,SisaBagi : Integer;
  Hex,Hexa : String;
  i : integer;
  Des : integer;
Begin
  Hex := '';
  Hexa := '';
  Des:= StrToInt(inp);
  Repeat
  SisaBagi := des Mod 16;
  case sisaBagi of
  10: Hex := Hex + 'A';
  11: Hex := Hex + 'B';
  12: Hex := Hex + 'C';
  13: Hex := Hex + 'D';
  14: Hex := Hex + 'E';
  15: Hex := Hex + 'F';
  else Hex := Hex + intToStr(SisaBagi);
  end;
  HasilBagi := Des Div 16;
  des:= HasilBagi;
  Until HasilBagi = 0;

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

Untuk Menggunakan Fungsi ini Sebagai Berikut:

Var Hasil: String;

Begin

.

.

Hasil:= DecTOHex('15');