10 luk tabandan 16 lık tabana çeviren program

[ysnkrsln]

Delphi porgramı ile 10 luk tabanda verilen bir sayıyı 16 lık tabana çeviren bir program yazmak istiyorum.Buna benzer örnek bir program arıyorum yardımcı olursanız sevinirim.

 

[Titus]

[B]begin[/B]
 
  ShowMessage('1234 decimal = '+[COLOR=#C00000][B]IntToHex[/B][/COLOR](1234, 1));
  ShowMessage('1234 decimal = '+[COLOR=#C00000][B]IntToHex[/B][/COLOR](1234, 8));
[B]end;[/B]

Çıktıları ise sırasıyla şöyle olur:

1234 decimal = 4D2
1234 decimal = 000004D2

 

[ysnkrsln]

Anlayamadım ben bu örneği açıkçası.Bu kodları hangi procedure içine yazacağız? Benim yapmak istediğim örnek şu şekilde:
2 tane edit kutusu ve bir buton kullanarak yapmayı düşündüm.edit1 kutusuna girilen sayı butona bastığımızda edit2 kutusunda 16 lık tabanda görünecek.
Biraz daha açıklayabilirseniz sevinirim.Teşekkürler.

 

[Titus]

butonun on_click fonksiyonunda şöyle birşey yapmanız gerekir:

edit2.Text:=InttoHex(StrtoInt(edit1.Text))

 

[ramerturk]

butonun on_click fonksiyonunda şöyle birşey yapmanız gerekir:

edit2.Text:=InttoHex(StrtoInt(edit1.Text))

edit2.Text:=InttoHex(StrtoInt(edit1.Text),1);

olması lazım, yoksa hata verir. Buradaki 1 rakamı kaç basamak göstereceğini söyler. Eğer belirttiğin basamaktan daha büyükse olduğu gibi gösterir küçükse başına sıfır atar.