集合元素怎么加入的?

Question

那些符号是:
$ , ( ) * + - 2 3 4 5 6 7 c d f h j l m n o s u v 
它们是怎么加到集合里的?

Answer 1

程序改动如下，就能如你所愿：
procedure TForm1.Edit1Change(Sender: TObject);
type
  sss=set of chr(33)..chr(126);
var
  i:integer;
  s1:string; 
  ss1:sss;
begin
  ss1:=[chr(33)..chr(126)]; 
  s1:=Edit1.Text;
  for i:=33 to 126 do
  if chr(i) in ss1 then showmessage(chr(i));
end;

Answer 2

我是想知道,原来ss1中的元素是怎么加入的,我并没有添加呀,我以为ss1应该为空

Answer 3

SS1 :=  ['$'];
SS1 := SS1 + ['(',')'];

Answer 4

for i:=33 to 126
i从33开始呀