Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/CMPLTPAS.ZIP/ISWHITE.PAS

Pascal/Delphi Source File | 1988-12-15 | 149 b | 9 lines

FUNCTION IsWhite(Ch : Char) : Boolean;

CONST
  Whitespace : SET OF Char = [#8,#10,#12,#13,' '];

BEGIN
  IsWhite :=  Ch IN Whitespace
END;