Which include is tryTextToFloat in?
On 6/27/06, A.J. Venter <[EMAIL PROTECTED]> wrote:
Shortcomings:
1) Does not handle OTHER pascal supported numeric formats - eg hex
2) Won't work for all character sets
I actually think tryTextToFloat is a BETTER way.
A.J.
On Tuesday 27 June 2006 22:21, 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
--
"there's nothing as inspirational for a hacker as a cat obscuring a bug
by sitting in front of the monitor" - Boudewijn Rempt
A.J. Venter
Chief Software Architect
OpenLab International
www.getopenlab.com
www.silentcoder.co.za
+27 82 726 5103
_________________________________________________________________
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
