16 lines
409 B
Plaintext
16 lines
409 B
Plaintext
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
|