chcheckutils.pas

双色球矩阵计算程序

unit CHCheckUtils;

interface
uses SysUtils, Forms, Windows, CHMessageUtils;

function CheckNum(text: string; isfloat: Boolean=True): Boolean;

implementation

function CheckNum(text: string; isfloat: Boolean): Boolean;
begin
  Result := True;
  try
    if isfloat then StrToFloat(text) else StrToInt(text);
  except
    Result := False;
  end;
end;

end.