Delphi Basit Case Kullanımı - 4 İşlem

YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Form üzerine 3 adet Edit, 1 Adet RadioGroup ve 1 adet Button koyun ve RadioGroup içeriğini alttaki ekran görüntüsündeki gibi belirleyin.

case-kullanimi.png


Button1 'e çift tıklayıp OnClick yordamına aşağıdaki kodları yazın.

Kod: 
case RadioGroup1.ItemIndex of
    0: Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
    1: Edit3.Text := IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text));
    2: Edit3.Text := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));
    3: Edit3.Text := IntToStr(StrToInt(Edit1.Text) div StrToInt(Edit2.Text));
  end;

Derleyip işlem yapmaya başlayabilirsiniz.

basit-hesap-makinesi.png
 
Benzer Konular Başlık Forum Cevap Tarih
nazenin Delphi birkaç basit örnek.. Delphi İle Başlangıç 10
YoRuMSuZ Delphi İle Basit Bir Hesap Makinesi Delphi İle Başlangıç 7
YoRuMSuZ Delphi Toolbar Reset Delphi İle Başlangıç 0
YoRuMSuZ Delphi RAD Studio 10.4 kurulum Delphi İle Başlangıç 0
H Delphi DNS DEĞİŞTİRME KODLARI Delphi İle Başlangıç 1

Top