Konuya cevap yaz

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.

[ATTACH=full]89920[/ATTACH]

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

[CODE]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;[/CODE]

Derleyip işlem yapmaya başlayabilirsiniz.

[ATTACH=full]89921[/ATTACH]