Path: utzoo!news-server.csri.toronto.edu!rutgers!uwm.edu!spool.mu.edu!news.nd.edu!mentor.cc.purdue.edu!j.cc.purdue.edu!brazil.psych.purdue.edu!zhou
From: zhou@brazil.psych.purdue.edu (Albert Zhou)
Newsgroups: comp.lang.pascal
Subject: Re: numeric
Message-ID: <11791@j.cc.purdue.edu>
Date: 11 Mar 91 17:55:49 GMT
References: <Mar.7.23.50.01.1991.26689@galaxy.rutgers.edu>
Sender: news@j.cc.purdue.edu
Reply-To: zhou@brazil.psych.purdue.edu (Albert Zhou)
Distribution: usa
Organization: Purdue University
Lines: 19

In article <Mar.7.23.50.01.1991.26689@galaxy.rutgers.edu> debotton@andromeda.rutgers.edu (Len DeBotton) writes:
>
> Is there a function or procedure in Turbo pascal V4
> that test your data to be numeric. 
> 
> If Numeric (Entered_Value).... Something Like that..
> 
Well, if you put your data you want to test into a string variable, you can
use a procedure named "val". Example:

var	x: real;
	s: string;
	n: integer;
begin   
  put data into s;
  val(s, x, n);
  if n=0 then it is numeric
	 else it is not valid
end.