[fpc-pascal] List of chars for case

[Dennis]

Ryan Joseph wrote:
> Is there a way to make a constant for a list of chars which I can use in a case statement? I’ve got a bunch of code duplication happening I’d like to clean up.
>
> const
>    TChars = ('[', ']', '(', ')', '{', '}', '=', ‘:’);
>
>
> case c of
>    TChars:
>      ...
>
>
> Regards,
> 	Ryan Joseph
>

   case c of
      '[', ']', '(', ')', '{', '}', '=', ':' : result := true;
   end;



Dennis