IsFloat

浮動小数点数に変換できるか確かめる関数。

function IsFloat(const S: string): Boolean;
var
  Value: Extended;
begin
  Result := TextToFloat(PChar(S), Value, fvExtended);
end;