16 lines
409 B
Text
16 lines
409 B
Text
|
include "NSLog.incl"
|
||
|
|
|
||
|
|
local fn StringIsNumeric( string as CFStringRef ) as BOOL
|
||
|
|
BOOL flag = NO
|
||
|
|
ScannerRef scanner = fn ScannerWithString( string )
|
||
|
|
if ( fn ScannerScanFloat( scanner, NULL ) )
|
||
|
|
flag = fn ScannerIsAtEnd( scanner )
|
||
|
|
end if
|
||
|
|
end fn = flag
|
||
|
|
|
||
|
|
NSLog(@"%d",fn StringIsNumeric( @"1.23" ))
|
||
|
|
NSLog(@"%d",fn StringIsNumeric( @"-123.4e5" ))
|
||
|
|
NSLog(@"%d",fn StringIsNumeric( @"alpha" ))
|
||
|
|
|
||
|
|
HandleEvents
|