Txt-Char is number

From Vectorlab
Jump to: navigation, search


Function to check if a char corresponds to an integer. By Orso B. Schmid

{ Orso *********************************************** }
{ checks if char is number }
FUNCTION T_CharIsNumber(aChar :CHAR):BOOLEAN;
	BEGIN
		T_CharIsNumber :=((Ord(aChar) > 47) & (Ord(aChar) < 58));
	END;