Функция IsDigital

IsDigital

Проверяет является ли все символы в строке цифрами 0-9

IsDigital(*c.Character)

Параметры

*c.Character

Указатель на строку

Возвращаемое значение

Успех:	Возвращает:
	#True - в строке только цифры
	#False - в строке есть символы не являющиеся цифрами

См. также

IsFloat, IsHex, IsLatin, ValidChar

Пример

Procedure IsDigital(*c.Character)
    Protected flag = #True

    If *c = 0 Or *c\c = 0
        ProcedureReturn 0
    EndIf

    Repeat
        If *c\c < '0' Or *c\c > '9'
            flag = #False
            Break
        EndIf
        *c + SizeOf(Character)
    Until Not *c\c

    ProcedureReturn flag
EndProcedure

Debug IsDigital(@"123")
Debug IsDigital(@"12 3")
Debug IsDigital(@"")