mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-04 07:10:22 +00:00
Another tweak yo isnumber()
This commit is contained in:
parent
78c4de7f6c
commit
14e5866c4b
|
@ -18832,7 +18832,7 @@ FUNCTION isnumber (a$)
|
||||||
FOR i = 1 TO LEN(a$)
|
FOR i = 1 TO LEN(a$)
|
||||||
a = ASC(MID$(a$, i, 1))
|
a = ASC(MID$(a$, i, 1))
|
||||||
IF a = 45 THEN
|
IF a = 45 THEN
|
||||||
IF i = 1 OR (i > 1 AND (d = i - 1 OR e = i - 1)) THEN _CONTINUE
|
IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND (d = i - 1 OR e = i - 1)) THEN _CONTINUE
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
IF a = 46 THEN
|
IF a = 46 THEN
|
||||||
|
|
Loading…
Reference in a new issue