主题:[讨论]各位哥哥姐姐、老师,谁能帮帮我,不胜感激!
为什么还是异常呢,我都快崩溃了...
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
strtofloat(trim(edit1.Text));
except
showmessage('请输入合理的数值类型!');
edit1.Text:='';
edit1.SetFocus;
end;
end;
[em7]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
strtofloat(trim(edit1.Text));
except
showmessage('请输入合理的数值类型!');
edit1.Text:='';
edit1.SetFocus;
end;
end;
[em7]