Şimdi Ara

SAAT 11E KADAR BU PROGRAMI YAPMAM LAZIM

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

1
Cevap

0
Favori

449
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

BEYLER ARKADAŞIMIN YAPMASI LAZIM DAHA DOĞRUSU LÜTFEN YARDIM VİZE ÖDEVİMİYMİŞ NEYMİŞ DELPHİDE BİR PROGRAM BU Bİ BAKIN

ama ben bunu button 1 etıklayarak edit 1 deki sayıyı edit ikıde çevrilmiş halını görmek istiyorum button 1 içine ne yazmam gerekli ? biraz acıl teşekkürler

function sayicevir(sayi:string;const sayitabani, sonuctabani:word):string;
function chtorkm(const c:char):byte;
var b:byte absolute c;{c ile b aynı adresteki değişkenlerdir. c:='b' olursa b değeri 66 olur veya b:=65 olursa c değeri 'a' olur}
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 (sayitabani<=altsinir) or (sonuctabani<altsinir) or (sayitabani>ustsinir) or (sonuctabani>ustsinir) then
raise exception. createfmt('%d tabanındaki sayı %d tabanına çevrilmek 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);
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;

bi tane edit 1 olcak ordan sayı girilcek altlarında butonlar olcak 2 16 8 tabanlarına dönştürüp edit 2 de gösterilcek bir de x butonu olcak ona basılınca 2 ile 9 arasında butonlar çıkcak üzerinde sayılar yazcak bunlardan hangisine basılırsa o tabana dnusturup edit 2 de gösterlcek