delphi - 如何替换除 block 之外的空？

Question

浏览一些遗留代码，我遇到了一些“空”除了 block 。它们都是出于类似的原因实现的，即处理从 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

这是一个返回 bool 值的函数，表示转换成功。转换后的值在成功时在 out 参数中返回。