EmployeeRec Title
Title
Title
Title
Title
Title
Title ( )
12.2
(if case)
( P
ascal )
if (( 'a' <= InputChar ) and ( InputChar <= 'z' )) or
(( 'A' <= InputChar ) and( InputChar <= 'Z' )) then
begin
CharType := Letter
end
else if ( InputChar = '' ) or ( InputChar = ',' ) or
( InputChar = '.' ) or ( InputChar = '!' ) or ( InputChar = '(' ) or
( InputChar = ')' ) or ( InputChar = ':' ) or ( InputChar = ';' ) or
( InputChar = '?') or ( InputChar = '-' ) then
begin
CharType := Punctuation
end
else if ( '0' <= InputChar and InputChar <= '9' ) then
begin
CharType := Digit
End;