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
