计算公式 |
答題得分者是:borland_delphi70
|
hunter616
一般會員 發表:2 回覆:1 積分:0 註冊:2006-08-14 發送簡訊給我 |
我在edit33.text中输入数值后,在edit23中计算出结果?
if (edit33.text)<=('0') then begin edit23.Text:='0'; end; if ((edit33.text)>('0')) and ((edit33.text)<=('500')) then begin edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.05')); end; if ((edit33.text)>('500')) and ((edit33.text)<=('2000')) then begin edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.1')-strtofloat('25')); end; if ((edit33.text)>('2000')) and ((edit33.text)<=('5000')) then begin edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.15')-strtofloat('125')); end; if ((edit33.text)>('5000')) and ((edit33.text)<=('20000')) then begin edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.25')-strtofloat('1375')); end; 当我输入2247时,得到的结果是负数,有点苦恼,一直找不到原因,请高手指教!!! |
borland_delphi70
中階會員 發表:8 回覆:50 積分:51 註冊:2002-12-06 發送簡訊給我 |
長官:
我用您的程式 run 出來是 ok 的,若Edit33.Text:='2247' 則Edit23.Text:='212.05',但是我建議您不要以字串方式處理。 [code delphi] procedure TForm1.Button1Click(Sender: TObject); var iNumber, iAnswer: extended; begin iNumber:=strtofloat(edit33.text); if iNumber<=0 then iAnswer:=0; if (iNumber>0) and (iNumber<=500) then iAnswer:=iNumber*0.05; if (iNumber>500) and (iNumber<=2000) then iAnswer:=iNumber*0.1-25; if (iNumber>2000) and (iNumber<=5000) then iAnswer:=iNumber*0.15-125; if (iNumber>5000) and (iNumber<=20000) then iAnswer:=iNumber*0.25-1375; edit23.text:=floattostr(iAnswer); end; [/code] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |