delphi - 在 Delphi 中检查值是否为日期/数字的正确方法是什么

Question

在 Delphi 中检查值是否为日期/数字的正确方法是什么？

我知道其他语言也有像 isDate 和 isNaN 这样的函数，但是 Delphi 的等价函数是什么？现在我有这个

function isNumeric(s1:string):boolean;
begin   
   // will throw exception if its not a number
  // there must be a better way to do this!!
  try
     StrTofloat(s1);
       result :=  TRUE ;
     except
       result := FALSE;
      end;
end;

但是抛出异常并不好，而且它使调试变得困难，因为每次调用代码时我都会看到异常对话框。

Answer 1

对于整数，您可以使用 TryStrToInt 进行检查和转换而不引发异常:

function TryStrToInt(const s: string; out i : integer): boolean;

不过，我不确定 float 是否有完整的等效项，因此您可能需要使用 StrToFloat() 并接受 TFormatException 的可能性。