窗体只有两个元件: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 请问如何解决??

  Try
Edit2.Text:='0';
StrToCurr(Edit2.Text);
Except
ShowMessage('输入数量类型非法~~!' #10#10 '请重新输入~~!');
Edit2.Text:='';
Edit2.SetFocus;
Exit;

:)

的時候出錯了，先給他賦值例如然後再做轉換要不函數怎麼知道轉換什麼呢?

  try
strtocurr(Edit2.Text);
except
on Exception : EConvertError do
ShowMessage(Exception.Message);
end;

------
What do we live for if not to make life less difficult for each other?

BIG-ROM 您好:

請問您選擇[缺席]結案的原因是什麼?
若前輩們的答案不符合您的需求,可以繼續提出您的疑問來討論
無端用[缺席]來結案,會讓答題的人不太舒服,不受尊重
除了這篇,您有很很多篇發文都有類似的情況
請您謹慎的結案,謝謝合作

雖然你結案了, 不過我今天看了有個疑問, 你是在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 请问如何解决??