Re: [lazarus] Any king of IsNumeric() function arround?

[Christian U.]

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