本程序根據(jù)用戶選擇的運(yùn)算符對輸入的二個操作數(shù)進(jìn)行運(yùn)算，并顯示運(yùn)算結(jié)果。設(shè)計(jì)界面和運(yùn)行界面如圖所示。其中，運(yùn)算符是一個含有4個單選按紐的RadioGroup1對象。
下面是單擊“運(yùn)算”按鈕的事件處理程序，請根據(jù)功能要求完成程序填空。
procedure TForm1.Button1Click(Sender: TObject);//運(yùn)算
var
x1,x2,y :Integer;
begin
x1 := StrToInt( Edit1. ①);
x2 : = StrToInt( Edit2. ②);
Case ③.ItemIndex of
0: y := x1 + x2 ;
1: y := x1 - x2;
2: y := x1 * x2;
3: y := x1 Div x2;
End;
Edit3. ④:= IntToStr( ⑤);
end;
您可能感興趣的試卷
最新試題
Image 組件位于組件面板的Additional 標(biāo)簽上，用來把位圖、（）和圖元文件顯示在窗體中。
如果為某個對象設(shè)置了Font 屬性，那么該對象的ParentFont 屬性值會變?yōu)镕alse。
Delphi的調(diào)試環(huán)境提供了兩種查看變量內(nèi)容的方法是什么？（）
容器可以用來組織對象，不能定義所包含對象通用的默認(rèn)屬性值。
當(dāng)Query 對象中存儲一條Update 語句時(shí)，我們執(zhí)行該語句需要調(diào)用Query 的（）方法。
Alignment 對齊方式屬性，該屬性值決定了顯示區(qū)中內(nèi)容的顯示位置，取值有（）。
打開的數(shù)據(jù)集通過BDE訪問一個數(shù)據(jù)表Table，則調(diào)用Table的（）方法可以使記錄指針指向table第一個記錄。
在編寫代碼的過程中，使用對象方法和一般調(diào)運(yùn)過程與函數(shù)的規(guī)則相當(dāng)，并采用（）的格式。
程序員編寫的（）都在單元實(shí)現(xiàn)部分。
定義數(shù)組類型的方法示例如下：type Tmyarray=array[1...10]of integer；從示例中我們可以看出，數(shù)組定義包含以下幾項(xiàng)內(nèi)容（）。