Soru = Girilen sayıyı binlik hale çevirme programını fonksiyonda yapınız.
Şekli :
Kodları :
Function Binlik(s:Double):string;
begin
result:=FormatFloat('#,#',s);
end;
Procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Binlik(StrToFloat(Edit1.text));
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
Edit2.Text:='';
end;
Çalışma Şekli :
 
Burada ise bir sayı değeri girdikten sonra çevir butonuna tıkladıktan sonra binlik değere çevirir.Temizle butonu ise editleri sıfırlar.Çıkış ise progamdan çıkmak için kullanılır.
|
