delphi計(jì)算器設(shè)計(jì)代碼-資料下載頁(yè)
2025-05-07 18:28本頁(yè)面
【正文】 Object)。begin n := 2。 //減法運(yùn)算符號(hào) Temp1 := 。 。end。procedure (Sender: TObject)。begin n := 3。 //乘法運(yùn)算符號(hào) Temp1 := 。 。end。procedure (Sender: TObject)。begin n := 4。 //除法運(yùn)算符號(hào) Temp1 := 。 。end。procedure (Sender: TObject)。begin 。 //清空上次運(yùn)行的數(shù)據(jù)end。procedure (Sender: TObject)。begin 。end。 procedure (Sender: TObject)。 //加減乘除運(yùn)算過(guò)程begincase n of 1: Temp1 := FloatToStr(StrToFloat(Temp1) + StrToFloat(Temp2))。 2: Temp1 := FloatToStr(StrToFloat(Temp1) StrToFloat(Temp2))。 3: Temp1 := FloatToStr(StrToFloat(Temp1) * StrToFloat(Temp2))。 4: if StrToFloat() = 0 then begin Temp1 := 39。除法運(yùn)算中，除數(shù)不能為039。 exit。 end else Temp1 := FloatToStr(StrToFloat(Temp1) / StrToFloat(Temp2)) // := Result。 // else // := Temp1。 end。 := Temp1。 Clkd := true。end。end.
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1