在窗體上畫一個名稱為Command1、標(biāo)題為“計算”的命令按鈕;畫3個文本框,名稱分別為Text1、Text2和Text3;然后畫4個標(biāo)簽,名稱分別為Label1、Label2、Label3和Label4,標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運算結(jié)果”、“=”符;再建立一個含有4個單選按紐的RadioGroup組件,名稱為RadioGroup 1,標(biāo)題分別為“+”、“-”、“*”和“/”。程序運行后,在Text1、Text2中輸入兩個整數(shù)值,選中一個單選按鈕后單擊命令按鈕,相應(yīng)的計算結(jié)果顯示在Text3,程序運行情況如圖所示。請?zhí)钊脒m當(dāng)?shù)膬?nèi)容,將程序補充完整。
procedure TForm1.Button1Click(Sender: TObject);
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;
您可能感興趣的試卷
最新試題
當(dāng)Query 對象中存儲一條Update 語句時,我們執(zhí)行該語句需要調(diào)用Query 的()方法。
數(shù)據(jù)庫連接組件
建立一個ADOTable對象的步驟是下列哪些選項()。
如果為某個對象設(shè)置了Font 屬性,那么該對象的ParentFont 屬性值會變?yōu)镕alse。
一個表格數(shù)據(jù)感知控件DBGrid對象不但可以同時顯示多個(),而且可以同時顯示多行數(shù)據(jù)。
進度顯示組件ProgressBar 的用途是什么?
對象查看器中有兩個標(biāo)簽,分別是()。
Delphi 所提供的集成開發(fā)環(huán)境可以為軟件開發(fā)人員提供什么樣的開發(fā)環(huán)境?
Animate(動畫)組件的主要方法有()。
程序員編寫的()都在單元實現(xiàn)部分。