home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CHARS.ZIP / CHARS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-25  |  588 b   |  25 lines
  1. UNIT Chars;
  2. INTERFACE
  3.  
  4. FUNCTION IsAlNum(c: CHAR): BOOLEAN;
  5. FUNCTION IsAlpha(c: CHAR): BOOLEAN;
  6. FUNCTION IsCntrl(c: CHAR): BOOLEAN;
  7. FUNCTION IsDigit(c: CHAR): BOOLEAN;
  8. FUNCTION IsLower(c: CHAR): BOOLEAN;
  9. FUNCTION IsUpper(c: CHAR): BOOLEAN;
  10.  
  11. IMPLEMENTATION
  12.  
  13. {$F+}
  14. {$L chars }
  15. FUNCTION IsAlNum(c: CHAR): BOOLEAN; EXTERNAL;
  16. FUNCTION IsAlpha(c: CHAR): BOOLEAN; EXTERNAL;
  17. FUNCTION IsCntrl(c: CHAR): BOOLEAN; EXTERNAL;
  18. FUNCTION IsDigit(c: CHAR): BOOLEAN; EXTERNAL;
  19. FUNCTION IsLower(c: CHAR): BOOLEAN; EXTERNAL;
  20. FUNCTION IsUpper(c: CHAR): BOOLEAN; EXTERNAL;
  21. {$F-}
  22.  
  23.  
  24.  
  25. END.