Hi,

  excuse my naive questions again, but what is wrong with val()


Alain

On Tue, 2006-06-27 at 22:21 +0200, Christian U. wrote:
> FUNCTION IsNumeric(s: STRING): boolean;
> VAR
>   i: integer;
> BEGIN
> //TODO:Replace ',' with Systemdelemiter
>   Result := (length(s) > 0);
>   FOR i := 1 TO length(s) DO
>     IF NOT ((Char(s[i]) IN ['0'..'9']) or (Char(s[i]) = DecimalSeparator)
> or (Char(s[i]) = '-') or (Char(s[i]) = '+')) THEN
>       BEGIN
>         Result := False;
>         exit;
>       END;
> END;
> 
> regards
> Christian
> 
> _________________________________________________________________
>      To unsubscribe: mail [EMAIL PROTECTED] with
>                 "unsubscribe" as the Subject
>    archives at http://www.lazarus.freepascal.org/mailarchives

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to