如何处理is not a valid floating point value ?? |
答題得分者是:hcker
|
BIG-ROM
初階會員 發表:94 回覆:91 積分:37 註冊:2005-04-16 發送簡訊給我 |
窗体只有两个元件:Button1,Edit2;
程式码: -------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); begin //判断输入数据是非合法 Try StrToCurr(Edit2.Text); Except ShowMessage('输入数量类型非法~~!' #10#10 '请重新输入~~!'); Edit2.Text:=''; Edit2.SetFocus; Exit; end; end; ================================ 通过点击 Button1 即产生错误提示: is not a valid floating point value 请问如何解决?? |
hcker
中階會員 發表:95 回覆:118 積分:62 註冊:2003-02-09 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
雖然你結案了, 不過我今天看了有個疑問, 你是在run time 執行 project1.exe 或是在 design time 去run application
因為你的程式沒有問題, 如果在run time 理應不會有 debug error 的狀況, 而是會顯示你自定的message, 所以我強烈懷疑你是在Design time 模式下執行, 這時Delphi會以自己的Debug 接手 exception的部份, 才會出現 ===================引 用 BIG-ROM 文 章=================== 窗体只有两个元件:Button1,Edit2; 程式码: -------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); begin //判断输入数据是非合法 Try StrToCurr(Edit2.Text); Except ShowMessage('输入数量类型非法~~!' #10#10 '请重新输入~~!'); Edit2.Text:=''; Edit2.SetFocus; Exit; end; end; ================================ 通过点击 Button1 即产生错误提示: is not a valid floating point value 请问如何解决?? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |