İstediğiniz sayı tabanını istediğiniz başka tabana cevirmeye yarayan bir program buldum ama ben bunu button 1 etıklayarak edit 1 deki sayıyı edit ikıde cevrilmiş halını gormek istiyorum button 1 icine ne yazmam gerekli ? biraz acıl teşekkurler

function SayiCevir(Sayi:String;const SayiTabani,SonucTabani:Word):String;
function ChToRkm(const C:Char):Byte;
var B:Byte absolute C;
begin
if C>='A' then Result:=B-55 else Result:=B-48;
end;
function RkmToCh(B:Byte):Char;
var C:Char absolute B;
begin
if B>9 then B:=B+55 else B:=B+48;
Result:=C;
end;
const AltSinir=1; UstSinir=35;
var i,j:Integer; fSayi,Basamak:Int64;
begin
//if (SayiTabani=SonucTabani) then Result:=Sayi else
if (SayiTabaniUstSinir) then
raise Exception.CreateFmt('%d tabanındaki sayı %d tabanına cevrilmek isteniyor fakat desteklenen taban aralığı %d-%d''dir.',[SayiTabani,SonucTabani,AltSinir,UstSinir])
else begin
Sayi:=UpperCase(Trim(Sayi));
fSayi:=0;Basamak:=1;
for i:=Length(Sayi) downto 1 do begin
j:=ChToRkm(Sayi[i]);
if j>=SayiTabani then raise Exception.CreateFmt('%s sayısı %d tabanlı bir sayı değildir.',[Sayi,SayiTabani]);
fSayi:=fSayi[j*Basamak);
Basamak:=Basamak*SayiTabani;
end;
Result:='';
if fSayi=0 then Result:='0'
else while fSayi>0 do begin
Result:=RkmToCh(fSayi mod SonucTabani]Result;
fSayi:=fSayi div SonucTabani;
end;
end;
end;
__________________