如何替换空的 except 块？

Question

浏览一些遗留代码，我遇到一些“空”的 except 块。它们都是出于类似的原因而实现的，即处理从 TEdit 中的文本到数值的转换。由于 TEdit 可能为空，因此在这种情况下不应出现错误消息：

procedure TmyForm.EditExit(Sender: TObject);
begin
  ...  
  try
    _value := StrToFloat(Edit.Text);
  except
  end; 
  ...
end;

这很有效，但我想这并不是一个好的做法。有没有更好的方法来获得相同的行为？

Answer 1

你应该使用TryStrToFloat：

if TryStrToFloat(Edit1.Text, _value) then
  // do something with _value

这是一个返回布尔值的函数，表示转换成功。成功后，转换后的值将在输出参数中返回。