Функция IsHex

IsHex

Проверяет является ли строка шестнадцатеричным числом с цифрами 0-9, A-F

IsHex(*c.Character)

Параметры

*c.Character

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

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

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

Примечания

Регистр букв A-F не учитывается

См. также

IsDigital, IsFloat, IsLatin, ValidChar

Пример

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

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

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

    ProcedureReturn flag
EndProcedure

Debug IsHex(@"123")
Debug IsHex(@"FF34FF")
Debug IsHex(@"")
Debug IsHex(@" ")