fpcsrc/tests/webtbs/tw8258a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

program SetsFUBAR;

uses
  SysUtils;

var
  FCommentChars: TSysCharSet;
  s: string;

begin
  s := '#';
  FCommentChars := [';','#'];
  if not (s[1] in FCommentChars) then
    halt(1);
end.