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.
Button1 'e çift tıklayıp OnClick yordamına aşağıdaki kodları yazın.
Derleyip işlem yapmaya başlayabilirsiniz.
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.
